GroßBuchstabe setzen

[Bine]

Hi!

Ich habe ein editfeld (kein dbedit) und ich möchte das der erste Buchstabe, bei einer Eingabe, ein Großbuchstabe ist.

Wer kann mir helfen?
Ich möchte (falls das geht) KEIN maskedit verwenden.

Danke :-)

[Bernhard Berger]

Ich würde das KeyPress-Ereignis des Edits dazu verwenden:<p>
<code><pre>
<font face="Courier New"><font color="#000080"><b>procedure</b></font> TForm1<font color="#FF0000">.</font>Edit1KeyPress<font color="#FF0000">(</font>Sender<font color="#FF0000">:</font> TObject<font color="#FF0000">;</font> <font color="#000080"><b>var</b></font> Key<font color="#FF0000">:</font> Char<font color="#FF0000">)</font><font color="#FF0000">;</font>
<font color="#000080"><b>begin</b></font>
<font color="#000080"><b>if</b></font> <font color="#FF0000">(</font>Edit1<font color="#FF0000">.</font>SelStart <font color="#FF0000">=</font> <b>0</b><font color="#FF0000">)</font> <font color="#000080"><b>and</b></font> <font color="#FF0000">(</font>Key <font color="#000080"><b>in</b></font> <font color="#FF0000">[</font><b>'a'</b><font color="#FF0000">..</font><b>'z'</b><font color="#FF0000">]</font><font color="#FF0000">)</font> <font color="#000080"><b>then</b></font>
Key <font color="#FF0000">:=</font> AnsiUpperCase<font color="#FF0000">(</font>Key<font color="#FF0000">)</font><font color="#FF0000">[</font><b>1</b><font color="#FF0000">]</font><font color="#FF0000">;</font>
<font color="#000080"><b>end</b></font><font color="#FF0000">;</font></font>
</pre></code><p>
Wenn du übrigens nur GROSSbuchstaben oder kleinbuchstaben verwendeden willst, kannst du die Eigenschaft <b>CharCase</b> des Edits verwenden.<p>
Gruß,<br>
Bernhar

[Bine]

Dankeeee funzt schon perfekt in meinen Program *GG*

DANKE SABINE :_