Home of Gamehacking - Archiv - Form ohne Titelleiste verschieben

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...

Home of Gamehacking - Archiv

iNvIcTUs oRCuS

ABartX

iNvIcTUs oRCuS

maluc

iNvIcTUs oRCuS