borderloses formular verschieben ?

[shareholder]

ich möchte ein formular verschieben, welches keinen rahmen hat.

dazu soll einfach die linke maustaste zum schieben gedrückt sein.

ich hab kein plan!

btw.: ich möchte keinen code, lediglich einen hinweis, damit ich's selbst versuchen kann.

danke

[Luckie]

Das hatten wir schon desöfteren. Benutz mal bitte die Suche.

[Bernhard Geyer]

Du hast dir ja schon fast den Tipp selbst gegeben.

- Stelle fest wenn die linke Maustaste auf deinem Formular gedrückt wird (OnMouseDown)
- Merke sowohl die Mausposition (absolut zum Screen) und die Position des Fensters
- Bei jedem MouseMove berechne die veränderung der Mouse-Position zum Screnn und korrigiere die Fenster-Position
- Wenn die Mousetaste losgelassen wird (OnMouseUp) wird die aktion beendet.

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then
  begin
    ReleaseCapture;
    SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE + 1,0);
  end;
end;

musste halt auf die form beziehen.

[fkerber]

Hi!

Schau mal hier:

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

Ciao fkerber

[r_kerber]

Guckst Du hier: Fenster ohne Titelzeile verschieben

[shareholder]

danke euch allen ! wird schon funzen