| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
регион [D5]
race1 © (2003-01-07 14:39:00)как определить прямоугольник, нажав на который юзер может передвигать форму?
Юрий Зотов (2003-01-07 15:25:00) [1]type
TForm1 = class(TForm)
private
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
end;
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
if PtInRect(Rect(10, 10, 100, 100), ScreenToClient(SmallPointToPoint(Message.Pos)))
then Message. Result := HTCAPTION
else inherited
end;
| |
