| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

-kiril ©   (2004-10-29 12:09:00) 

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

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;

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

---

abc   (2004-10-29 16:58:00) [1]

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

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;

---

Ega23   (2004-10-29 12:51:00) [2]

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

---

a123   (2004-10-29 12:46:00) [3]

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;

---

Наверх