Einzelnen Beitrag anzeigen

Jürgen Thomas

Registriert seit: 13. Jul 2006
Ort: Berlin
750 Beiträge
 
#4

Re: Edit : string,char und Tasten

  Alt 31. Dez 2006, 11:18
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
#D mit C# für NET, dazu Firebird
früher: Delphi 5 Pro, Delphi 2005 Pro mit C# (also NET 1.1)
Bitte nicht sauer sein, wenn ich mich bei Delphi-Schreibweisen verhaue; ich bin inzwischen an C# gewöhnt.
  Mit Zitat antworten Zitat