Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

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

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

---

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

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c