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

Вниз

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

← →
__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 вся ветка

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

Наверх

Память: 0.44 MB
Время: 0.034 c