OnKeyDown aufrufen

[optikus]

Hallo Delphianer

möchte gerne das Ereignis OnKeyDown eines TEditfeldes in einer anderen Procedure aufrufen.
Ich habe Probleme damit, den Parameter für TShiftstate korrekt zu übergeben.
Versuche wie bsw.mit Edit1.OnKeyDown(self,vk_return,[]) scheiterten. Kann mir bitte jemand sagen, wie die richtige Syntax lautet?

Dank vorab.

[Jochen Reichenberg]

Was genau möchtest Du denn erreichen??? Ich kann mir keinen Grund vorstellen, ein Return an eine TEdit zu senden...

Joche

[Mario.Noack]

<pre>var aKey: Word;
begin
aKey := vk_return;
Edit1.OnKeyDown(Edit1,aKey,[]);</pre><p>
Der erste Parameter sollte das Edit selbst sein und der zweite ist <b>var</b>.<p>
Damit wird aber nicht der Tastendruck simuliert sondern nur Deine Behandlungsroutine dafür aufgerufen.<p>
Schöne Grüße, Mario Noac

[optikus]

Danke

[Oswald Mair]

Kannst es auch so machen.

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.SetFocus;
keybd_event(VK_SHIFT, 0, 0, 0);
keybd_event(ord('A'), 0, 0, 0);
end;

Oswal