DblClick-Erreignis einer Komponente abfangen

[padavan]

Guten Morgen,

ich habe ein Verständnisproblem, wie ich den Doppelclick einer benutzten Komponente abfangen kann.

Folgendes habe ich bereits umgesetzt:

Habe eine Komponente 'TmyMachine' geschrieben welche sich von TPanel ableitet.
Soweit so gut. Diese TmyMachine habe ich in einem anderen Formular benutzt. Ich erzeuge n Instanzen dieser Klasse, je nachdem wieviel gebraucht werden. Dazu benutze ich eine TObjectlist. Dieser füge ich dann dynamisch die TmyMachine Objekte hinzu.

Delphi-Quellcode:

type
  TmyForm = class(TForm)
...
private
    fMachines: TObjectlist;

...

fmyMachines.Add(TmyMachine.Create(self, parameter, usw));
...
(fmyMachines.Last as TmyMachine).Show;

Wenn ich nun in dem Formular, in welchem jetzt diverse Instanzen von TmyMachine liegen, einen Doppelklick auf eine dieser myMachines mache, möchte ich das Doppelklick Erreigniss in der Form bearbeiten und nicht im Klassencode von TmyMachine. Also muss ich doch den Eventhanlder von TmyMachine beim Erzeugen des jeweiligen Objekts irgenwie in mein Formular bekommen. Nur wie stelle ich das an?

Wenn super, wenn mir jemand helfen könnte.

Danke schon mal
Padavan

PS: Im Anhang habe ich mir ein mini Beispiel gemacht, bei welchem ich das Grundsätzlich hinkriege, aber eben nicht dynamisch und schon gar nicht aus einer anderen Unit...

[sirius]

Delphi-Quellcode:

(fmyMachines.Last as TmyMachine).onDblClick:=methode aus FormX

[padavan]

Vielen vielen Dank,

zwischenzeitlich war es mir auch aufgefallen.
Manchmal muss man es einfach mal "laut denken".

Gruß
Padavan

[padavan]

Hm,

ursprungsproblem zwar gelöst, aber da kommt schon das nächste.

Gleiche Bausstelle, allerdings benötige ich jetzt noch OnMouseDown.

Delphi-Quellcode:

(fmyMachines.Last as TmyMachine).OnMouseDown := myMachineMouseDown;

Wenn ich gleiches mit Schema F durchziehe meckert der Delphi mit

Zitat:

Incompatible types: 'TObject' and 'TMouseButton'

Code in TmyMachine

Delphi-Quellcode:

protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); override;

[DeddyH]

Der Sender-Parameter fehlt.