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.

markieren

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

Buchstaben immer groß schreiben

Buchstaben immer groß schreiben

Re: Buchstaben immer groß schreiben

Re: Buchstaben immer groß schreiben

Forumregeln

Namenloser Registriert seit: 7. Jun 2006 Ort: Karlsruhe 3.724 Beiträge FreePascal / Lazarus	#2 Re: Buchstaben immer groß schreiben 4. Aug 2009, 19:43 Stell die Eigenschaft CharCase des TEdit einfach auf ecUpperCase
	Zitat

Major1337 Registriert seit: 26. Jul 2009 158 Beiträge	#3 Re: Buchstaben immer groß schreiben 4. Aug 2009, 19:49 o_O so einfach.. -.- trotzdem Danke
	Zitat