Как перемещать форму удерживая за любое свободное на ней место?

← →
DimaLos © (2004-03-15 10:08) [0]

Подскажите как перемещать форму удерживая за любое свободное на ней место?

← →
Serge © (2004-03-15 10:10) [1]

Пиши процедуру по обработке WM_NCHITTEST

← →
DimaLos © (2004-03-15 10:12) [2]

Пожалуйста, можно подробнее?

← →
ssk (2004-03-15 10:17) [3]

procedure Form1.OnMouseMove(...);
begin
if ssleft in shift then
begin
ReleaseCapture;
Form1.perform(WM_syscommand, $F012, 0);
end;
end;

← →
serge © (2004-03-15 10:22) [4]

Либо

procedure WMNCHITTEST (var Msg : TWMNCHit); message WM_NCHITTEST;
...
procedure TForm1.WMNCHITTEST (var Msg : TWMNCHit);
Begin
inherited;
With Msg do
begin
if Msg.Result = htClient then
result:=htCaption;
end;
End;

Код писал на память, если что не так - старею значит :)
Удачи.

← →
serge © (2004-03-15 10:25) [5]

var Msg : TWMNCHit --> var Msg: TWMNCHitTest

← →
DimaLos © (2004-03-15 11:21) [6]

Огромное спасибо!

Можно еще и так:
procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

Еще один способ есть. Механизм работы такой же.
var xm,ym:integer; ... procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if (ssleft in shift) then begin left:=left+(x-xm); top:=top+(y-ym); end; end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin xm:=x; ym:=y; end;

Как перемещать форму удерживая за любое свободное на ней место? Найти похожие ветки