Текущий архив: 2009.08.09;
Скачать: CL | DM;

Вниз

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

← →
zhirik   (2008-03-12 10:33) [0]

Помогите перетасчить форму за ее поверхность, ато обычный код не катит:
 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;


---

← →
mdw ©   (2008-03-12 11:11) [1]

Например так:
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;

---

← →
zhirik   (2008-03-12 11:49) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2009.08.09;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.012 c