Hallo RedHorse,
Enter-Taste funktioniert wie Tab-Taste in OnKeyPress:
Code:
procedure TForm.MyObj_KeyPress(Sender: TObject; var Key: Char);
begin
If (Key = #13) Then Begin
Key := #0;
Perform(WM_NEXTDLGCTL,0,0); // gehe zur nächsten Komponente
End;
end;
funktioniert in TEdit, TDBEdit und vielen anderen Objekten. Einfach probieren. Ich habe es getestet mit den beiden genannten.
mfg
eddy