Двигать форму, держась за любую ее точку

← →
-kiril (2004-10-29 12:09) [0]

Добрый день!
Мне нужно, чтобы форма двигалась не только при удерживании заголовка, но и при нахождении мышки в любой ее части. Делаю это так:

procedure TForm1.FormMouseDown(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;

Здесь все нормально. Но если сдинуть форму таким образом, чтобы она ушла за верхнюю границу экрана, то происходит ее возвращение. Как победить это?

← →
a123 (2004-10-29 12:46) [1]

procedure WMNCHitTest(var M: TWMNCHitTest); message WM_NCHITTEST;
procedure WMNCHitTest(var M: TWMNCHitTest);
begin
inherited; // вызов унаследованного обработчика
if M.Result = htClient then // Мышь сидит на окне? Если да
M.Result := htCaption; // - то пусть Windows думает, что мышь на caption bar
end;

← →
Ega23 © (2004-10-29 12:51) [2]

Создай форму из одного заголовка! :о)

← →
abc (2004-10-29 16:58) [3]

Может так получится:

var //interface
d: boolean;
x0,y0: integer;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
d := true;
x0 := x;
y0 := y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
d := false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if d then
begin
Left := Left + x - x0;
Top := Top + y - y0;
end;
end;

Двигать форму, держась за любую ее точку Найти похожие ветки