Передвижение формы - Помощь студентам

JIK · 12.07.2008, 17:03

У меня такая проблема, мне надо чтобы при стиле рамки формы: bsNone, форму можно было бы передвигать, но как?

Подскажите плиз! Заранее благодарен!

P.S. Допустим таща за картинку она передвигалась.

_Dmitry · 12.07.2008, 17:24

Тема была бесчисленное количество раз...

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Form1.perform(WM_SysCommand,$F012,0);
end;

Эту процедуру нужно "повесить" на событие OnMouseDown формы и всех компонентов, за которые планируете таскать форму.

JIK · 12.07.2008, 17:45

Спасибо большое

12.07.2008, 17:03	#1
JIK Пользователь Регистрация: 21.06.2008 Сообщений: 14	Передвижение формы У меня такая проблема, мне надо чтобы при стиле рамки формы: bsNone, форму можно было бы передвигать, но как? Подскажите плиз! Заранее благодарен! P.S. Допустим таща за картинку она передвигалась. -------- --- -- --- -- ---- --- ----- ---- ---------

12.07.2008, 17:24	#2
_Dmitry Участник клуба Регистрация: 02.09.2007 Сообщений: 1,193	Тема была бесчисленное количество раз... Код: `procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Form1.perform(WM_SysCommand,$F012,0); end;` Эту процедуру нужно "повесить" на событие OnMouseDown формы и всех компонентов, за которые планируете таскать форму.

12.07.2008, 17:45	#3
JIK Пользователь Регистрация: 21.06.2008 Сообщений: 14	Спасибо большое -------- --- -- --- -- ---- --- ----- ---- ---------

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Формы	Kocapb	Общие вопросы C/C++	8	29.08.2008 00:48
Про формы в длл	Altera	Общие вопросы Delphi	2	24.06.2008 22:19
Формы	Diamand	Общие вопросы Delphi	3	23.06.2008 13:49
Минобороны ограничит передвижение мужчин призывного возраста - законопроект одобрен во втором чтении	Alar	Свободное общение	14	27.03.2008 23:49
Фон формы	FAiver	Общие вопросы Delphi	4	15.12.2007 23:09