Hallo,
ich habe eine Form erstellt und will von einem Textfeld in das nächste wechseln mit Enter, Tab oder Mausklick.
Mit Enter das funktioniert super. Jetzt geht leider meine Tab-Taste nicht mehr.
Ist es möglich mit folgender Procedure mehrere Tasten abzufragen?

procedure TForm3.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 Key=#01 then
begin
try
mo2x:=StrToFloat(Edit13.Text);
Edit14.SetFocus;
mo2x:=mo2x;
except
ShowMessage('Please enter only Numbers!');
Edit13.Clear;
Edit13.SetFocus;
end;
end;
end;
end;
Vielen Dank für eure Hilfe. Bitte etwas Nachsicht, ich habe erst angefangen mit Delphi zu programmieren.
Gruss
Matthias

Z.B. mit case geht sowas ganz einfach:

markieren

Delphi-Quellcode:

case Key of
  #13,
  #27,
  #255:
    MachIrgendwas;
end;

Boolesche Operatoren und Klammern verwenden?
Das sollte aber in jedem billigen Delphi-Tutorial genannt sein.

markieren

Delphi-Quellcode:

if (Key=#13) or (Key=#01) then

if Key in [#13, #01] then

if CharInSet(Key, [#13, #01]) then // Korrekte Behandlung für UnicodeDelphis

Hallo himitsu,
ich habe deinen Vorschlag mal ausprobiert.

markieren

Code:

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key in [#13, #01, #09] then
    begin
     try
         ol:=StrToFloat(Edit1.Text);
         Edit2.SetFocus;
         ol:=ol;
     except
         ShowMessage('Please enter only Numbers!');
         Edit1.Clear;
         Edit1.SetFocus;
    end;
 end;
end;

Leider nimmt das Programm die Tab-Taste und die linke Maustaste nicht.
Mit Enter kann ich die Werte übernehmen. Habe ich noch einen Fehler in der Procedure?
Danke.

Verlagere die Prüfung einmal ins OnExit.

Hast Du Keypreview auf true gesetzt?

Mavarik

Zitat von mat72:

Leider nimmt das Programm die Tab-Taste und die linke Maustaste nicht.
Mit Enter kann ich die Werte übernehmen. Habe ich noch einen Fehler in der Procedure?
Danke.

Sicher daß #9 ein tabulator ist?

Haltepunkt auf if Key in [#13, #01, #09] then und nachsehn.

Hallo,
ich habe es gerade ausprobiert. Mit #09 und #01 kommt keine Antwort.
Die Codes habe ich von hier[Link]http://www.delphipraxis.net/6412-liste-der-virtuellen-tastencodes-vk_.html[/Link].
Gibt es eine andere Möglichkeit?
Vielen Dank.