Окно Windows

← →
Вопрос (2003-04-16 13:11) [0]

Господа може ктонить знает как можно заставить окно перетаскиваться ухватившись не только за его заголовок но и за клиентскую часть

← →
Shirson © (2003-04-16 13:25) [1]

В ISAPI хелпе набери WM_NCHITTEST

← →
Yanis (2003-04-16 14:58) [2]

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;

Это позволяет двигать форму за любой компонент, а эта только за
клиентскую область:

procedure WMNCHitTest (VAR Msg : TWMNCHitTest); message WM_NCHitTEst;
....
....
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
Inherited;
if Msg.Result = htClient then Msg.Result:=htCaption
end;

Окно Windows Найти похожие ветки