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




Вниз

Прилипание формы 


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.




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




Наверх





Память: 0.71 MB
Время: 0.046 c
3-18723           sasham                2002-01-09 17:33  2002.02.07  
midas и com+ Ошибка при активации com oбъекта


4-19019           Art                   2001-12-10 17:20  2002.02.07  
Ђ где взЯть справочную инфц по Api???


1-18821           _SnAke_               2002-01-22 00:31  2002.02.07  
ООП в Delphi


14-18953          gun19456              2001-12-16 15:51  2002.02.07  
Где найти хороший бесплатный хостинг для размещения программ ?


4-19020           ikar                  2001-12-08 13:51  2002.02.07  
Системные ловушки и VCL