Prozedur mit Enter auslösen

[Flo]

Hi,
ich habe eine Edit-Komponente und möchte eine Prozedur auslösen, indem ich im Editfeld auf Enter drücke. Im Objektinspektor hab ich es schon mit OnEnter probiert. Klappt aber leider nicht. Er gibt mir zwar keine Fehlermeldung, aber einen Piepton.

Wie kann ich das Problem lösen ???

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) then
  begin
    //hier aufrufen
    key := #0
  end;
end;

so müsste es gehen

[mars]

OnEnter ist das Ereignis, welches beim Eintritt ins Edit-Feld ausgelöst wird, das heisst, wenn das EditFeld den Fokus erhält. Dein Ereignis heisst OnKeyDown. Dort hast du als Parameter Key: Word. Wie du vielleicht richtig vermutet hast, wird damit der Tastencode übergeben. Willst auf die Entertaste reagieren, kanns du das also mit folgendem Code machen:

Code:

if Key = vk_RETURN then Reagieren;

Für andere Tasten musst du nach "Virtuelle Tastencodes" suchen.

[Flo]

Vielen Dank!!!

Habs mal mit beiden Varianten probiert.
Beide funktionieren.

Vielen Dank!!!

[Hansa]

Denk aber an das blöde Beep Ich hab meine Stereo-Anlage an die Soundkare angeschlossen, damit ich das auch höre. Es ist nämlich lästig, bei jedem ENTER ein PIEP zu hören.

[Mirilin]

Zitat:

das blöde Beep

sollte doch mit
  key := #0; weg sein!