procedure keydown im quellcode aufrufen

[HariboHunter]

Hiho,

ich würde gerne

Code:

procedure TForm1.combobox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  mgs: TMsg;
  SIcon: TIcon;

begin
  case Key of
    VK_RETURN:
      begin  // ENTER oder TAB-Taste erkannt
        Key := 0;
       ...

über diesen Code:

Code:

procedure TForm1.ToolButton8Click(Sender: TObject);
var Shift: TShiftState;
begin

form1.combobox1KeyDown( Self , [VK_RETURN] , ssshift );
end;

aufrufen.

Ich kenne aber die richtige Syntax nicht, vieleicht kann mir jemand weiterhelfen ?!?

[ibp]

schau dir mal perform an...

[ibp]

sollte auch funktionieren...

Code:

procedure TForm1.ToolButton8Click(Sender: TObject);
var aShift: TShiftState;
    akey:word;
begin
  akey:=VK_RETURN;
  aShift:=[ssShift];
  combobox1KeyDown(combobox1, akey, aShift);
end;

[HariboHunter]

Das mit dem Perform hab ich net kapiert .
Aber das 2. klappt ganz Phantastisch.

Verständnissfrage:

Warum hast Du bei "Sender" >combobox1< geschrieben??
Ich habs mit >self< und >Sender< probiert.. auf combobox1 bin ich net gekommen.

[ibp]

mit perform kannst du eine botschaft an das steuerelement schicken!

[ibp]

Zitat von HariboHunter:

Verständnissfrage:

Warum hast Du bei "Sender" >combobox1< geschrieben??
Ich habs mit >self< und >Sender< probiert.. auf combobox1 bin ich net gekommen.

..weil die cb der sender sein soll oder?

..wenn du aus dem buttonclick-event den sender nimmst, dann ist der button der sender!

[HariboHunter]

Danke schön.