Anwendungsfenster verschieben ohne Titelleiste

[misterflodder]

Hi, also ich arbeite momentan an nem kleinen Multimediaplayer, basierend auf dem WMP.
Für den Player hab ich mir ne Titelleiste in Form einer Grafik gebaut, minimieren und schliessen etc funzt, aber wie mach ich das, das das Fenster verschiebbar wird sobald ich auf die "Titelgrafik" klicke? Habe schon ein Beispiel gefunden wo das ganze für die ganze Arbeitsfläche geht, funzt aber bei mir nicht, da sonst die Buttons nicht mehr gehen würden, weil die Anwendung denkt das ich sie nur verschieben will :\

Hätte da jemand ne Lösung für Delphi 7?

Greetz Benny

PS: Hätte jemand eine Winamp ActiveX Komponente? Weil mein Player sollte eigentlich auf Winamp basiern, damit man NSV abspielen kann :D

[turboPASCAL]

Am einfachsten geht es wohl so:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DRAGMOVE = $f012;
begin
  if Shift = [ssLeft] then
  begin
    ReleaseCapture;
    Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

[misterflodder]

k thx werds heut abend ma ausprobiern, wäre nicht schlecht wenn sich noch jemand wegen der Winamp Geschichte melden würde ;)