Hi! Mein Problem:
Ich bin gerade dabei, eine eigene Komponente zu entwickeln. Ich leite sie ab von TCustomControl. Nun muss bei einem MouseDown auf die Komponente eine Prozedur (DoMouseDown) ausgeführt werden. Meine bisherige Lösung war:
Delphi-Quellcode:
constructor TMyComponent.Create(AOwner: TComponent);
begin
...
Self.OnMouseDown := DoMouseDown;
end;
Mittlerweile ist es aber nötig geworden, dass die Komponente ein OnMouseDown-Ereignis zur Verfügung stellt. Also:
Delphi-Quellcode:
type
TMyComponent = class(TCustomControl)
...
published
...
property OnMouseDown;
end;
end;
Jetzt wird aber natürlich bei einem Klick auf die Komponente nur die im Objektinspektor zugewiesene Prozedur aufgerufen. Allerdings soll ja unbedingt (am besten zuerst) DoMouseDown ausgeführt werden.
Falls jemand einen Lösungsvorschlag hat, wäre ich sehr dankbar!
Gruß!
Robert