Скачать: CL | DM;

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c