Перетаскивание окна за любою его часть мышкой

← →
volph (2003-03-29 22:46) [0]

Перетаскивание окна за любою его часть мышкой, как так сделать?

← →
Palladin © (2003-03-29 22:52) [1]

http://delphi.mastak.com/cgi-bin/faq.pl?look=1&id=988619881&n=16

← →
X-RayMan (2003-03-30 12:14) [2]

Есть несколько методов, один из них: в OnMouseDown формы написать:
if Button=mbLeft then Form1.BeginDrag(True);

Есть там еще методы, но я сразу и не вспомню.

← →
Intell © (2003-03-30 14:24) [3]

var
MX: integer;
MY: integer;

procedure TForm1.form1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Shift<>[ssLeft] then
begin
MX:=X;
MY:=Y;
end else
begin
Left:=Left+X-MX;
Top:=Top+Y-MY;
end;
end;

← →
Flint © (2003-03-31 08:55) [4]

перехватывай WM_NCHITTEST и делай что хочешь :)
Это гораздо мощнее и правильней чем пример данный Palladin"ом :)

← →
BuildeRR © (2003-03-31 13:07) [5]

2Flint: Напиши пожалуста примерчик

procedure TSelectDoc_f.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; Perform(WM_SysCommand, SC_DragMove, 0); end;

Есть ограничение в примере BorisUK, некоторые компоненты на форме не будут работать, если подобное случится, то помести компонент на TPanel. Тогда всё будет полный OK.

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
private
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
end;

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
if Message.Result = HTCLIENT then
Message.Result:=HTCAPTION;
end;

Перетаскивание окна за любою его часть мышкой Найти похожие ветки