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

← →
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]

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

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