PHP DM Gate v0.9 » Как перетаскивать форму за ее поверхность

zhirik (12.03.08 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 © (12.03.08 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 (12.03.08 11:49) [2]

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

<Цитата>