Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

StatusBar [Delphi, Windows]

midas2k5 © (2005-06-22 09:51:00)
Как организовать сохранение и загрузку размеров и положение формы, когда есть StatusBar. Проблема в том, что размеры формы возвращаются сStatusBar'ом, а при установки безнего!
Вследствии всего этого следующий код не работает:
procedure IniFileSettings(Mode:Boolean);
var
I: PIniFile;
begin
I := OpenIniFile(IniFileName);
if Mode then
I.Mode:=ifmWrite
else
I.Mode:=ifmRead;
I.Section := 'Window';
Form1.Left := I.ValueInteger('Left', Form1.Left);
Form1.Top := I.ValueInteger('Top', Form1.Top);
Form1.Width := I.ValueInteger('Width', Form1.Width);
Form1.Height := I.ValueInteger('Height', Form1.Height);
I.Section := 'General';
LastFileName := I.ValueString('LastFile',LastFileName);
OptShowPassword := I.ValueBoolean('ShowPassword',OptShowPassword);
end;

Midas2k5 (2005-06-23 15:14:00) [1]
Thanks Thaddy, this work !

Владимир Кладов (2005-06-22 17:36:00) [2]
или используйте ClientWidth/ClientHeight - они и для формы работают, в том числе и на запись.

thaddy (2005-06-22 11:32:00) [3]
The code works with me: You probably read the position *before* the statusbar is created. you should read and write the settings *after* the statusbar is created.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »