Настройки

← →
Лысый (2002-08-08 19:01) [0]

Help!!!
Может я глючу:), нов реестре сохраняются все настройки, а грузятся все кроме WinState :(( т.е.Форма как была wsNormal так и осталась,
хотя при закрытии была wsMaximized.

Делаю так:

procedure loadoptions;
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey("SOFTWARE",true);
Reg.OpenKey("NickSoft",true);
Reg.OpenKey("My programm",true);

with MainForm do
begin
WindowState:=TWindowState(Reg.ReadInteger("Options", "WinState", 0));
Left:=Reg.ReadInteger("Options", "Left", 10);
Top:=Reg.ReadInteger("Options", "Top", 10);
Width:=Reg.ReadInteger("Options", "Width", 600);
Height:=Reg.ReadInteger("Options", "Heigth", 400);
...
...
...
end;
finally
Reg.Free;
end;
end;

procedure saveoptions;
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey("SOFTWARE",true);
Reg.OpenKey("NickSoft",true);
Reg.OpenKey("My programm",true);
with MainForm do
begin
if WindowState=wsNormal then
begin
Reg.WriteInteger("Options", "Width", Width);
Reg.WriteInteger("Options", "Heigth", Height);
Reg.WriteInteger("Options", "Left", Left);
Reg.WriteInteger("Options", "Top", Top);
end;
Reg.WriteInteger("Options", "WinState", Integer(WindowState));
...
...
...
end;
finally
Reg.Free;
end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
loadoptions;
...
...
...
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
saveoptions;
...
...
...
end;

← →
Skier (2002-08-08 19:06) [1]

>Лысый

with MainForm do begin Left:=Reg.ReadInteger("Options", "Left", 10); Top:=Reg.ReadInteger("Options", "Top", 10); Width:=Reg.ReadInteger("Options", "Width", 600); Height:=Reg.ReadInteger("Options", "Heigth", 400); WindowState:=TWindowState(Reg.ReadInteger("Options", "WinState", 0)); ... ... ... end;

← →
Лысый (2002-08-08 19:09) [2]

Так пробовал... Ничего не получается :(((

← →
Skier (2002-08-08 19:11) [3]

>Лысый
А ты проверь - WindowState правильно записывается.

Настройки Найти похожие ветки