Delphi-PRAXiS - Delphi Buchstaben immer groß schreiben

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Buchstaben immer groß schreiben (https://www.delphipraxis.net/138176-buchstaben-immer-gross-schreiben.html)

Major1337

4. Aug 2009 20:40

Buchstaben immer groß schreiben

Hey,

ich möchte gerne bei einer Eingabe in der man Zahlen und Buchstaben eingeben kann, die Buchstaben immer mit Großbuchstaben dargestellt werden, das hier war meine erste Lösung.

Delphi-Quellcode:

			procedure TAnmeldeForm.EingabeEditKeyPress(Sender: TObject; var Key: Char);

begin

  if (key > #96) and (key <#123) then

      key := chr(ord(key)-32);

end;

procedure TaAnmeldeForm.eingangKeyDown

  if Key = VK_RETURN then

    begin

kennt ihr elganteren Lösungsweg? :P

Mfg
Major1337

Namenloser

4. Aug 2009 20:43

Re: Buchstaben immer groß schreiben

Stell die Eigenschaft CharCase des TEdit einfach auf ecUpperCase :wink:

Major1337

4. Aug 2009 20:49

Re: Buchstaben immer groß schreiben

o_O so einfach.. -.- trotzdem Danke :D

Alle Zeitangaben in WEZ +1. Es ist jetzt 10:46 Uhr.