Edit : string,char und Tasten

[Jürgen Thomas]

Zitat von daddy2000:

er schreibt so ins Edit +10 und springt nicht mehr ins nächste Feld.

Bitte genau lesen: DGL-luke hat Dir doch die richtige Antwort schon vorgegeben:

Zitat von DGL-luke:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key='+' then
    Edit1.Text := '10'
  else
  begin
    if not (Key in ['0'..'9',#8,#43]) then //auf Zahlen prüfen
      Key := #0;
  end;
  //  verschoben von Jürgen Thomas
  PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); //automatisch nächstes Feld
end;

Evtl. musst du das PostMessage noch aus dem Block rausziehen, wenn du das immer haben willst.

Jürgen