правильное сохранение размеров окна

← →
Darkwing © (2006-07-07 10:39) [0]

Программа сохраняет в .ini файл размеры главного окна при его закрытии. Вопрос в том, как сохранить размеры и положение состояния wsNormal если окно при закрытии находится в wsMaximized?

← →
PSPF2003 © (2006-07-07 10:44) [1]

Наверное, надо использовать какой-нибудь флаг, при загрузке проверяем если он равен true, уснавливаем необходимое состояние

← →
medved_68 © (2006-07-07 10:47) [2]

> Darkwing

А ты не давай закрыть окно пока оно wsMaximized. Пусть репу почешут:)))

← →
SerJaNT © (2006-07-07 11:00) [3]

Может так

if form1.windowstate = wsMaximized then begin ... что-то делаем если окно максимизированно end else begin ... что-то делаем если окно в каком-то другом состоянии end;

← →
Darkwing © (2006-07-07 11:05) [4]

Программа сохраняет wsMaximized или wsNormal которые были при закрытии. надо как-то в момент перехода из wsNormal в wsMaximized сохранять значения размеров wsNormal. Типа задача сводится к тому чтобы определить момент перехода из wsMaximized в wsNormal.

← →
Darkwing © (2006-07-07 11:06) [5]

то есть wsNormal из wsMaximized

← →
SerJaNT © (2006-07-07 11:07) [6]

Нет, на событие onclose надо поставить тот код который я привел.

← →
SerJaNT © (2006-07-07 11:08) [7]

При закрытие ты проверяшь в каком состоянии окно, и, если оно максимизированно, то в ини пишешь что оно как-будто минимизированно.

← →
StriderMan © (2006-07-07 11:09) [8]

TForm1 = class(TForm) ... private fSTop: integer; fSLeft: integer; fSWidth: integer; fSHeight: integer; .... public procedure setBounds(...); override; .... procedure TForm1.SetBounds(...); begin windowstate = wsNormal then begin fSTop := Top; //Сохраняем размеры если в состоянии wsNormal .... end; inherited end;

> Примерно это же и я предлогаю

вобщем да, только надо не на закрытии проверятьа как я написал в SetBounds, а то если растянут форму, а потом развернут на весь экран и закроют, то сохранятся параметры до растягивания

GetWindowPlacement()

правильное сохранение размеров окна Найти похожие ветки