Während Focus auf Edit - Enter = Button1.Click

[qb-tim]

Hi,

ich möchte, dass wenn nach/bei einer Eingabe in einem Edit die ENTER Taste gedrückt wird, dass dann Button1.Click ausgeführt wird. Wie stelle ich das an?

[mkinzler]

Einfach im .OnExit die Methode aufrufen.

[s-off]

Hallo,

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   case Key of
      VK_RETURN: Button1.OnClick(Sender);
   end;
end;

[qb-tim]

Wunderbar, danke!

[hoika]

Hallo,

ich würde das aber etwas anders lösen.

1. Button1 ?, was macht denn der genau ?
also Button_DoCalc als Bsp.

2. eine Methode
procedure TForm.DoCalc:

3. in Button_DoCalcClick wird DoCalc aufgerufen

procedure TForm.Button_DoCalcClick(Se...);
begin
DoCalc;
end;

4. im OnKeyDown des Edits wird DoCalc aufgerufen.


Heiko

[qb-tim]

Der Button1 ist ein richtiger TButton auf Form1, den man clicken kann. Button1.OnClick ist eine Prozedure, die die Eingabe im Edit verarbeitet (sofern sie nicht leer ist).
Es ist nur der Bequemlichkeit halber, dass ich diese ENTER Funtion fürs Edit haben will.

[s-off]

hoika hat nur beschrieben, wie man es ordentlich macht, also Deinem Control einen aussagekräftigen Namen zu geben. Und damit hat er recht - Anweisungen packt man eigentlich nicht in eine Objektmethode sondern in eine separate Funktion, welche man dann aufruft.

[Hansa]

OnKeyDown, OnKeyPress usw. das muss zusammen betrachtet werden. Hinzu kommt dann noch OnEnter, Onexit etc. Der Wert von KeyPreview spielt auch wichtige Rolle. Besser das hier mal noch lesen :

http://www.delphipraxis.net/internal...a0a4ac791a05d2