перемещение формы - Общие вопросы Delphi

CraZZy RabbIt · 16.03.2009, 01:23

как можно реализовать перемещение формы мышью,когда включен стиль bsNone???схватить ведь не за что...

mihali4 · 16.03.2009, 01:38

Сто раз обсуждалось!

Код:

procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform (WM_SYSCOMMAND,SC_MOVE+2,0);
end;

Еще одна дурацкая тема без попыток поиска - влуплю штраф за флуд!

16.03.2009, 01:23	#1
CraZZy RabbIt Форумчанин Регистрация: 16.02.2009 Сообщений: 172	перемещение формы как можно реализовать перемещение формы мышью,когда включен стиль bsNone???схватить ведь не за что...

16.03.2009, 01:38	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Сто раз обсуждалось! Код: `procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform (WM_SYSCOMMAND,SC_MOVE+2,0); end;` Еще одна дурацкая тема без попыток поиска - влуплю штраф за флуд!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
перемещение формы	Черничный	Общие вопросы Delphi	11	10.12.2009 11:06
Перемещение формы???	lionman	Общие вопросы Delphi	20	22.04.2009 17:43
Перемещение формы за компонент	Zeraim	Общие вопросы Delphi	2	20.05.2008 09:26
Delphi, перемещение формы.	north	Помощь студентам	3	23.01.2008 22:34
Перемещение рисунков внутри формы	Marsik	Помощь студентам	10	01.11.2007 09:48