Onmousedown einer TShape per Code ausführen

[Muehli]

Also, ich habe ein Shape und ein Onmousedown event zugewiesen, jetzt möchte ich in einer anderen Procedure dieses Onmousedown ausführen, so wie bei einem Button mit einem einfachen button.click. Wie kann ich das machen?

[Bummi]

auch wenn ich es nicht für eine gute Idee halte

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Shape1MouseDown(Shape1,mbleft,[],0,0);
end;

[Muehli]

Zitat:

Zitat von Bummi (Beitrag 1199902)

auch wenn ich es nicht für eine gute Idee halte

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Shape1MouseDown(Shape1,mbleft,[],0,0);
end;

keine gute idee? alternativen?

[DeddyH]

Eine eigene Methode schreiben und diese in beiden Events aufrufen.

[Muehli]

Zitat:

Zitat von DeddyH (Beitrag 1199904)

Eine eigene Methode schreiben und diese in beiden Events aufrufen.

hab ja eine procedure geschrieben die ausgeführt wird aber die hat als sender dieses shape...

[Array]

dort https://groups.google.com/forum/?fro...sc/7RVpHWQY4Cg findest du eine sehr gute Anleitung mit sogar zwei möglichen Lösungswegen, sollte dir weiterhelfen.

[DeddyH]

Mich beschleicht das Gefühl, ich habe das Problem noch nicht erfasst.