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

**turboPASCAL**

Am einfachsten geht es wohl so:

zusammenfalten · markieren

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

Anwendungsfenster verschieben ohne Titelleiste

Anwendungsfenster verschieben ohne Titelleiste

Re: Anwendungsfenster verschieben ohne Titelleiste

Re: Anwendungsfenster verschieben ohne Titelleiste

Forumregeln

misterflodder Registriert seit: 2. Jul 2005 6 Beiträge	#3 Re: Anwendungsfenster verschieben ohne Titelleiste 8. Sep 2005, 12:20 k thx werds heut abend ma ausprobiern, wäre nicht schlecht wenn sich noch jemand wegen der Winamp Geschichte melden würde
	Zitat