Текущий архив: 2004.05.02;
Скачать: 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 вся ветка
Текущий архив: 2004.05.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.08 c
