[gelöst] Key in OnKeyDown überschreiben

[TheRealHades]

Hallo,

ich versuche im OnKeyDown eines TEdit die Key-Variable zu überschreiben um ausschliessliche ausgewählte Tasten (in dem Fall Zahlen + BS + DEL) zuzulassen. Dies klappt auch. Was mir hingegen nicht gelingt ist das ändern von Kommas zu einem Punkt. Anbei meine Prozedur:

Code: Alles auswählen

procedure TfrmMain.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
      48..57: key:= key;         //Ziffern über Tastatur
      96..105: key:= key;        //Ziffern Nummernblock
      8, 37, 39, 46: key:= key;  //BS, DEL, Pfeil li + re
      110, 188, 190: key:= 190;  //Kommas zu Punkt wandeln
      else
        key:= 0;                 //alles andere unterdrücken
  end;
end;

Also sprich

Code: Alles auswählen

key:= 0;                 //alles andere unterdrücken

funktioniert und

Code: Alles auswählen

110, 188, 190: key:= 190;  //Kommas zu Punkt wandeln
 

funktioniert nicht, es werden einfach Kommas oder Punkt geschrieben, jenachdem was ich gedrückt habe.

Es wäre schön wenn mir jemand meinen Fehler aufzeigen könnte.

Vielen Dank
Björn

[m.fuchs]

Nimm mal stattdessen OnKeyPress:

Code: Alles auswählen

if not(Key in ['0'..'9', #8, '.']) then begin
  if Key = ',' then
    Key := '.'
  else
    Key := #0;
end;

hth
Micha

[TheRealHades]

Hat funktioniert,

Vielen Dank.

[Socke]

Nimm mal stattdessen OnKeyPress:

Gegebenenfalls solltest du dir OnUTF8KeyPress() ansehen, ob noch andere Zeichen (bspw. Umlaute) eingegeben werden.