Nur Großbuchstaben eingeben

mkay · Hält's aus hier Beiträge: 3

Hi,
wie kann ich in ein Edit-Fenster nur Große Buchstaben eingeben? Habs versucht, aber bei mir kommen die Großbuchstaben dann nur rückwärts =(. Kann mir jemand helfen?
MfG Mkay

Moderiert von Gausi: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Di 28.02.2006 um 15:37

Tastaro · Beiträge: 414 Erhaltene Danke: 23

Schau dir mal die Eigenschaft CharCase von deinem Edit-Feld an.

Beste Grüße
Tastaro

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Es läuft darauf hinaus das du im OnKeyPressdie KeyVariable abfragst und veränderst. Entweder das bei Kleinbuchstaben keine Taste gedrückt wird oder das der entsprechende Großbuchstabe genommen wird.

roedel · Verfasst: Di 28.02.06 16:35

Hallihallo,

willst du vielleicht unabhängig davon, ob du groß oder klein eingibst, immer einen Großbuchstaben erhalten? Dann könntest du Folgendes machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
Key := Upcase(Key)
end;

Gruß Roedel

Moderiert von Gausi: BBCodes aktiviert.

_________________
Steh' zu dem was du tust oder lass' es!

galagher · Verfasst: Di 28.02.06 20:51

digi_c hat folgendes geschrieben:

Es läuft darauf hinaus das du im OnKeyPressdie KeyVariable abfragst und veränderst.

roedel hat folgendes geschrieben:

willst du vielleicht unabhängig davon, ob du groß oder klein eingibst, immer einen Großbuchstaben erhalten? Dann könntest du Folgendes machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
Key := Upcase(Key)
end;

Beides berücksichtigt aber nicht, dass man ja auch Text ins Edit einfügen kann, und was dann? Ich würde das so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Edit1Change(Sender: TObject);
var
  I: Integer;
begin
 I := Edit1.SelStart;
 Edit1.Text := AnsiUpperCase(Edit1.Text);
 Edit1.SelStart := I;
end;

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Stimmt, das hatte ich auch aus den Augen verloren

Hux · Beiträge: 171

Am leichtesten geht es immer noch so, dann könnt ihr euch das ganze Uppercase und AnsiUppercase sparen:

markieren

Delphi-Quelltext

1:	Edit1.CharCase:=ecUpperCase;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme