Panel via Image verschieben

[hedie]

Hallo

Ich möchte ein Panel auf einer Form mit der Maus Verschieben Lassen, das klappt auch ganz gut mit dem MouseDown Event und diesem Code

Delphi-Quellcode:

  // Mausereignisse abfangen
  ReleaseCapture;
  // mit TWinCotrol verschieben, $F012 verschiebt den Button
  TWinControl(Sender).Perform(WM_SYSCOMMAND, $F012, 0);

Doch auf dem Panel befindet sich ein Image und dieses Füllt fast das Ganze Panel
Nun möchte ich, dass man auch wenn man das Image "verschiebt" (anklicken und ziehen) das Panel Verschoben wird.

Wie muss ich das machen?

Wielen Dank

Grüsschen
Claudio

[mkinzler]

Führe das doch in den Eventmethoden des Images durch.

[hedie]

Ja aber dan verschiebt es das Image ;-)

[mkinzler]

Die durchgeführte Aktion kannst du doch in der Methode selbst bestimmen.

[hedie]

Ja aber ich weiss nicht wie ich den Code Anpassen muss, damit er anstelle des Objektes indem er benutzt wird das Panel verschiebt.

[mkinzler]

Delphi-Quellcode:

Sender.Parent

[bitsetter]

Hi,

Das onMouseDown Ivent vom Image würde ich das onMouseDown Ivent des Panels zuweisen und dann folgenden Code hinzufügen:

Delphi-Quellcode:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
  if Sender is TImage then
    TWinControl(TImage(Sender).Parent).Perform(WM_SYSCOMMAND, $F012, 0)
  else
    TWinControl(Sender).Perform(WM_SYSCOMMAND, $F012, 0);
end;

[hedie]

Super klappt herrvoragend danke :D