HAllo
Warum Funzt das bei mir nicht???
Ist in jedem Forum zu finden nur klappen tut es nicht.
Code:
procedure TMyForm.FormKeyPress(Sender: TObject; var Key:
Char);
begin
if Key = #13 then //Ist die gedrückte Taste
ASCII-Return?
begin
Perform(WM_NEXTDLGCTL, 0, 0); //Zum nächsten Element wechseln
Key := #0; //Gedrückte Taste unwirksam machen
end;
end;
Ich möchte eigentlich nur verhindern das die Enter Taste nicht funktioniert.
etwa wie panel.visible --- Entertaste tot
das der code oben was anderes bewirkt ,schon klar.
mfg schniede