Prozedur aufrufen - Onclick - Edit

[isilive]

Hi Leute!

Ich hab ein Edit Feld und einen Button.

Für das 'OnClick' vom Button hab ich schon eine Prozedur geschrieben die den 'edit1.text' im 'memo1' sucht und dann markiert.

Jetzt möchte ich, dass beim Drücken von Enter im Edit1 dasselbe passiert.

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key <> vk_return then exit;
   TForm1.Button1Click;
end;

funktioniert nicht (nicht genügend Parameter).

Wie kann ich die bereits bestehende Prozedur verwenden? Oder muss ich diese in eine eigene Prozedur verschieben und danach sowohl vom 'OnClick' - als auch vom 'KeyDown' Ereignis aufrufen?

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then 
     Button1Click(Button1);
end;

[Maja Jessica]

Hi,

so als Vorschlag, ich bewerkstellige das meist so:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key = #13 then Button1Click(Self);
end;

MJ

[uligerhardt]

Zitat von DeddyH:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then 
     Button1Click(Button1);
end;

Oder  Button1.Click;

[Maja Jessica]

Hi

Zitat:

Button1Click(Button1);

Zitat:

Button1.Click

Sicher?

[toms]

Zitat von Maja Jessica:

Hi

Zitat:

Button1Click(Button1);

Zitat:

Button1.Click

Sicher?

Nein, Button1.Click;

[DeddyH]

Wieso nicht? Ist doch eine Methode von TButton.

[Maja Jessica]

Klar, geht beides.
Mir geht es darum, was denn nun "richtiger" oder "optimal" ist.
Spricht etwas gegen einer der gewählten Techniken?

MJ

[DeddyH]

Zitat von Maja Jessica:

Spricht etwas gegen einer der gewählten Techniken?

IMHO nicht. Wenn man keine "Ferkeleien" mit dem Sender vorhat, ist das Geschmackssache.

[SirThornberry]

Buttonx.Click zu verwenden hat den Vorteil das man im Quelltext nichts ändern muss wenn man dem Button irgendwann eine neue Ereignisbehandlungsfunktion zuweist.
Alternativ ginge auch noch:

Delphi-Quellcode:

if Assigned(Buttonx.OnClick) then
  Buttonx.OnClick(Buttonx);