Координаты окна

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

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 больше определённого предела - сбрасываешь в дефолт и по-новой.

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