Ein Fenster an beliebiger Stelle verschieben

[Delphi Star]

Moin :thuimb: ,
weiß jemand wie man eine Delphi-Anwendung an beliebigen Stellen verschieben kann, also ich meine das so:

Ich habe ein Programm in dem ich die Titelleiste ausblende.
Dannach füge ich für die alte Titelleiste ein Bitmap ein, aber wie geht das, dass wenn man auf die Titelleiste klickt und die Maus festhält das Fenster verschiebbar ist??? :gruebel: ???

[XeRo]

Ich glaub ich weiß was du meinst...

siehe anhang...ist sicher nicht die sauberse lösung...

[Luckie]

http://www.delphi-treff.de/content/e...dex.php4?id=17

[StefanDP]

ich hab das mal so gemacht:

Delphi-Quellcode:

var
  x_, y_: Integer;

...

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift = [ssLeft] then
  begin
    Form1.Left := Mouse.CursorPos.X - x_;
    Form1.Top := Mouse.CursorPos.Y - y_;
  end;
end;

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  x_ := X;
  y_ := Y;
end;

ist zwar auch nciht die sauberste methode, aber es funzt