Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.07;
Скачать: CL | DM;

Вниз

Прилипание формы   Найти похожие ветки 

 
Gabi100   (2002-01-23 10:48) [0]

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


 
Rem ©   (2002-01-23 11:09) [1]

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

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

procedure TForm1.FormMouseMove();
var
dX, dY: integer;
i: integer;
begin
if (ssLeft in Shift) then
begin
dX := X - P.X;
dY := Y - P.Y;
for i := 0 to Screen.FormCount - 1 do
with Screen.Forms[i] do
begin
Left := Left + dX;
Top := Top + dY;
end;
end;
end;

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


 
Digitman ©   (2002-01-23 11:58) [2]

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



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

Текущий архив: 2002.02.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
1-18791
fdv79
2002-01-24 09:51
2002.02.07
Создание каталога


6-18935
atmospheric
2001-11-06 00:41
2002.02.07
scroll


1-18812
Koroleva
2002-01-25 12:18
2002.02.07
FormStyle


4-19040
nika
2001-12-11 01:20
2002.02.07
HELP ME!!!!!!!!!!!!!!!!ОЧЕНЬ ПРОШУ


1-18827
Philip
2002-01-25 00:50
2002.02.07
Не работает Debugger в делфи