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

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

Как перетаскивать форму за ее поверхность

zhirik ©   (2008-03-12 10:33:00) 

Помогите перетасчить форму за ее поверхность, ато обычный код не катит:
 TForm1 = class(TForm)
 private
   procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
...
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
 inherited;
 if M.Result = htClient then
   M.Result := htCaption;
end;


---

zhirik   (2008-03-12 11:49:00) [1]

Спасибо, все работает!!!

---

mdw   (2008-03-12 11:11:00) [2]

Например так:
function TBaseMediaCatForm.KOLFormMessage(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
   Result:= False;
   case Msg.message of
     WM_LBUTTONDOWN: begin
//        if (Msg.hwnd = Form.Handle) and (HIWORD(Msg.lParam) < 22) then
        Form.Perform(WM_NCLBUTTONDOWN, HTCAPTION, Msg.lParam);
     end;
   end;
end;

---

Наверх