![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как запретить перемещение формы мышю?
Kost © (2001-12-21 11:12:00)Как запретить перемещение формы мышю?
3d[Power] (2001-12-21 11:19:00) [1]
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin inherited;
if M.Result = htCaption then
M.Result := htClient;
end;
Это занеси в type tform1:
private
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;