Клубове

Преместване на форма

3 отговора 147 прегледа
M #1

Преместване на форма

Какво да направя за да може формата ми да бъде "влачена" по екрана не само когато мишката е в заглавната лента, а и когато е някъде върху самата форма? Мерси на отговорилите! :)

Отговор
P в отговор на M #2

Re: Преместване на форма

const
HTCAPTION = 2;

if Button = mbleft then
begin

ReleaseCapture();
SendMessage(Self.handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;

В събитието MouseDown на формата или някой друг контрол.

Отговор
Waz Gaa в отговор на P #3

Re: Преместване на форма

const
SC_DRAGMOVE = $F012;
begin
Application.ProcessMessages;

if Button = mbLeft then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;

OnMouseDown

by Waz Gaa
[email protected]
Отговор
M в отговор на M #4

Re: Преместване на форма

10x, момчета! :)

Отговор
Отговор в темата