Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как перетащить форму, если нет рамки! [D7, WinXP]


Dyakon_Frost ©   (2006-03-30 11:52:00) 

Здраствуйте!
Возможно, где-то это уже говорилось и обсуждалось, но поиск почему-то ничего недал, так что если что заранее извеняюсь.

Есть форма без рамки, и мне необходимо, чтобы была возможность ее перетаскивать по экрану! Как это можно сделать? На форме есть только Panel и Image!

Заранее спасибо!


Dyakon_Frost   (2006-03-30 12:24:00) [1]

Круто!
Спасибо большое!


BiN   (2006-03-30 12:12:00) [2]

в обработчике OnMouseMove любого TWinControl-а вставь

 if Handle=GetForegroundWindow then
 begin
   ReleaseCapture;
   SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
 end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо