Controls zur Laufzeit beweglich machen

[sko1]

Hallo,

ich baue gerade an einen Designer und möchte zur Laufzeit eigene Controls erzeugen und mit der Maus verschiebbar machen.

Hierfür habe ich folgenden Schnipsel gefunden:

Delphi-Quellcode:

procedure TForm1.PanelMouseDown(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
    begin
      ReleaseCapture;
      Panel.Perform(WM_SYSCOMMAND,$F012,0);
    end;
end;

Das funktioniert mit einem zur Entwurfszeit auf die Form gepappten Panel prima, aber irgendwie fehlt mir der Weg das für ein oder mehrere zur Laufzeit erzeugte eigene "myPanel" (von TPanel abgeleitet) umzusetzen!

Der Versuch von

Delphi-Quellcode:

Pan := TmyPanel.Create(Form1);
Pan.Parent := Form1;
Pan.MouseDown := PanelMouseDown;

führt zu der Fehlermeldung: "auf protected-Symbol TControl.OnMouseDown kann nicht zugegriffen werden"

Kann mir bitte jemand auf die Sprünge helfen?

Ciao
Stefan

[Neutral General]

Probiers das mal:

Delphi-Quellcode:

TMyPanel = class(TCustomPanel) // Ich schätze davon leitest du ab?
published
  property OnMouseDown;
end;

[himitsu]

Zitat:

Delphi-Quellcode:

Pan.MouseDown := PanelOnMouseDown;

Oder das fehlende On für OnMouseDown?

[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