Home of Gamehacking

Normale Version: Form ohne Titelleiste verschieben
Sie sehen gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Inspiriert davon was bereits DNA im VB Thread schrieb...
Hier die Lösung wenn man sowas mal in Delphi coden will.

[code=Delphi]ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);[/code]

Das wars auch schon... Bleibt mir nur noch zu sagen das diese 2 Zeilen Code im OnMouseDown Ereignis eingefügt werden müssen.

grEEtZ Don Krawallo
bei lazarus funktioniert das so offenbar nicht. hier eine lösung die ich gefunden habe, und bei mir auch funktioniert hat:

Code:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;


zu beachten ist, dass so nur die form selbst verschoben werden kann!


greetz ABartX

Ist eigentlich dasselbe, nur die Schreibweise ist anders.
[code=delphi]SendMessage(hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0);[/code]
Stimmt... An die Möglichkeit hat ich garnicht gedacht...