OnMouseDown überschreiben

[Forlan]

Schönen guten Abend zusammen,

wie man schon aus meiner Fragestellung erkennen kann, möchte ich das OnMouseDown Event einer Klasse überschreiben. Nur wie genau geht das? An sich ist es ja keine procedure, sondern eine property, oder sehe ich das falsch?
Mit

Delphi-Quellcode:

procedure OnMouseDown({...}); override;

klappt es ja nicht, da er die OnMouseDown procedure in der Oberklasse nicht finden kann. (logisch, weil es ja eine property ist...)

Ich hoffe ihr könnt mir helfen ;)

Gruß,

[himitsu]

offizieller Weg:

Delphi-Quellcode:

OnMouseDown := DeineEreignisProzedur;

das kannst du im OnCreate machen

oder du fänngst direkt die Windowsnachricten ab (z.B. für LinkeMauszaste)

Delphi-Quellcode:

procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;

[DeddyH]

TControl verfügt auch über eine protected-Methode MouseDown.

[Forlan]

Hintergrund ist das ich dabei bin TPanel abzuleiten. Dabei möchte ich halt das sich das Panel genau so verhält wie ein Button. Also rein visuell gesehen. Daher macht ja dein "offizieller Weg" wenig sinn, wenn das nur im Konstruktor aufgerufen wird. Geht das denn nicht einfacher? :gruebel:
In c# ("Hust^^") funktioniert es über meine zu erst erwähnte Methode.

[DeddyH]

Dann nimm doch den zweiten Weg, indem Du auf WM_LBUTTONDOWN bzw. WM_LBUTTONUP reagierst.

[Forlan]

Alles klar, funktioniert super ;)
Danke :thumb:

[Forlan]

Leider muss ich meinen letzten Beitrag revidieren. Sobald ich einen Doppelklick auf mein erzeugtes Panel mache, hängt sich das Programm auf. Jemand eine Idee woran das liegen kann?

[DeddyH]

Bist Du einmal durchgesteppt? Ansonsten einfach mal in den Quellcode der Elternkomponente bzw. von TControl schauen, wie das da gemacht wird (der sollte bei der Architect-Edition ja dabei sein :mrgreen:).

[Forlan]

Jo, durchdebuggt ist das ganze. Konnte aber nichts merkwürdiges dabei erkennen. Dann schau ich mir mal TControl genauer an. Hätte ja sein können das einer eine direkte lösung kennt. :mrgreen: