Großbuchstaben-Format in Memo-Feldern

Ringo · Hält's aus hier Beiträge: 2

Hallo,

ich möchte, dass der eingegebene Text in einem Memofeld beim Schreiben in Großbuchstaben erscheint. Eine Eigenschaft 'CharCase' gibt es nicht und beim Formatieren mit UpperCase in einem OnChange-Ereignis springt der Curser immer an die erste Stelle des Textes.
Gibt es dafür eine Lösung?
Besten Dank!
Ringo

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

hi,

probiers mal mit folgenden Code: (Habe ihn nur mal eben zusammengetippt, weiss also nicht, ob er funtzt, müsste er aber eigentlich)

markieren

Quelltext

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

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['a'..'z'] then
  begin
    Key := UpperCase(Key)[1];
  end;
end;

_________________
Viele Grüße
Jakob

Ringo · Hält's aus hier Beiträge: 2

He super, das funktioniert.
Danke!
Ringo

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

des ist gut

_________________
Viele Grüße
Jakob

LCS · Verfasst: Fr 20.09.02 14:54

Hi
Kleiner Verbesserungsvorschlag, denn früher oder später passierts:

markieren

Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if  key in ['a'..'z','ä', 'ö', 'ü'] then
    Key := AnsiUppercase(Key)[1];
end;

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Ehemaliges Mitglied Erhaltene Danke: 1

Ein noch besserer Vorschlag, weil das Memo ja API-technisch gesehen ein Multiline-Edit ist:

markieren

Quelltext

1:
2:

SetWindowLong(Memo1.Handle,GWL_STYLE,
  GetWindowLong(Memo1.Handle,GWL_STYLE) or ES_UPPERCASE);

Auf die gleiche Weise lässt sich eine Eingabe auch auf Kleinbuchstaben (ES_LOWERCASE), oder auf Nummern (ES_NUMBER) begrenzen.

Anwendung: 1x im "OnCreate" ...