Controls zur Laufzeit beweglich machen

[sko1]

Danke für den schnellen Tip!

Der Compilerfehler ist weg, aber der OnMouseDown wird nicht gefeuert!
Grund wird ein TImage sein, welches auf dem Label liegt und den MouseDown wegfängt!

Hast Du dafür auch noch eine Idee?

Ciao
Stefan

P.S.

Zitat:

Oder das fehlende On für OnMouseDown?

Nein, das war Copy/Paste fehler von mir hier im Beitrag...

[Neutral General]

Liegt das Image fest auf dem Panel? Also ist es ein fester Bestandteil von TMyPanel?
Falls ja, dann müsste es möglich sein innerhalb der Komponente das MouseDown des Images abzufangen und an das Panel weiterzuleiten.

[sko1]

Ja das TImage liegt immer fest auf dem Panel mit Align := alClient...

Wie könnte man das Mousedown weiterleiten (und damit das myPanel verschiebbar machen)?

Ich hatte auch schon überlegt das in der Komponente gleich beim Create zu machen, aber da kennt Delphi nicht mal mehr ReleaseCapture...

Ciao
Stefan

[stahli]

Wenn Du eine Komponente ableiten kannst, dann schau Dir mal HitTest für Maus-Transparenz an (es gab da zwei unterschiedliche Möglichkeiten).

[sko1]

nur dumm, dass weder das TImage noch das TShape bei VCL ein HitTest kennen...

Ciao
Stefan

[Codehunter]

Warum überschreibst du nicht einfach TCustomPanel.Paint und pinselst dir auf diesem Wege dein Bitmap auf das Panel? Anstatt solche Klimmzüge zu machen und Mausereignisse weiterzuleiten?

[sko1]

Wäre auch eine Idee!
Da muss ich mal nachdenken ob das machbar ist oder neue Probleme macht (z.B. ist das Image Stretch = true)...

Ciao
Stefan