Скачать: CL | DM;

Координаты окна   Найти похожие ветки 

← →
__oleg   (2004-04-12 15:43) [0]

Запущена программа, открыта какая либо форма. Открываем еще одну такую-же форму. Как сделать, чтобы координаты новой формы были несколько смещены, чтобы она попросту не закрывала первую? Т.е., если у первой формы Top=100, Left = 100, то у новой - Top=116, Left = 116?

---

← →
clickmaker ©   (2004-04-12 15:46) [1]

Top :=116;
Left := 116;

---

← →
Ega23 ©   (2004-04-12 15:50) [2]

property NextFormTop:Integer read FNextFormTop write FNextFormTop;
property NextFormLeft:Integer read FNextFormTop write FNextFormLeft;
property FormTopDisplacement:Integer read FFormTopDisplacement write FFormTopDisplacement;
property FormLeftDisplacement:Integer read FFormLeftDisplacement write FFormLeftDisplacement;

И вперёд!
После очередного показа - увеличиваешь NextFormTop на FormTopDisplacement, если NextFormTop больше определённого предела - сбрасываешь в дефолт и по-новой.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c