Einzelnen Beitrag anzeigen

Major1337

Registriert seit: 26. Jul 2009
158 Beiträge
 
#1

Buchstaben immer groß schreiben

  Alt 4. Aug 2009, 19:40
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
  Mit Zitat antworten Zitat