On keypress

[schniede]

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