Buchstaben immer groß schreiben

[Major1337]

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?


Mfg
Major1337

[Namenloser]

Stell die Eigenschaft CharCase des TEdit einfach auf ecUpperCase

[Major1337]

o_O so einfach.. -.- trotzdem Danke