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

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

Прилипание формы [D6, Win95/98, Win2k]

Gabi100 ©   (2002-01-23 10:48:00) 

Как обеспечить "прилипание формы" т.е. чтобы при перетаскивании одной формы другая перемещалась вслед за ней?

---

Digitman   (2002-01-23 11:58:00) [1]

используй св-ва/методы/события класса TWinControl, относящиеся к встроенной технологии Drag-and-Dock.

---

Rem   (2002-01-23 11:09:00) [2]

В таком ключе:

TForm1 = class(TForm)
...
P: TPoint;
end;

procedureTForm1.FormMouseMove();
var
dX, dY: integer;
i: integer;
begin
if(ssLeft inShift) then
begin
dX := X - P.X;
dY := Y - P.Y;
fori := 0 toScreen.FormCount - 1 do
withScreen.Forms[i] do
begin
Left := Left + dX;
Top := Top + dY;
end;
end;
end;

procedureTForm1.FormMouseDown();
begin
if(ssLeft in Shift) then
P := Point(X, Y);
end;

---

Наверх