Собственно работающего кода нет. Есть код, который не приводит к нужному результату:
procedure TForm1.Button1Click(Sender: TObject);
var
AIniFile: TIniFile;
begin
AIniFile:= TIniFile.Create('config.ini');
try
AIniFile.WriteInteger('My data', 'Panel1 height', panel1.Height);
AIniFile.WriteInteger('My data', 'Panel1 Left', panel1.Left);
AIniFile.WriteInteger('My data', 'Panel1 Top', panel1.Top);
AIniFile.WriteInteger('My data', 'Panel1 Width', panel1.Width);
AIniFile.WriteInteger('My data', 'Panel1 ParentWindow', panel1.ParentWindow);
AIniFile.WriteInteger('My data', 'Panel1 BevelWidth', panel1.BevelWidth);
AIniFile.WriteInteger('My data', 'Panel1 DockClientCount', panel1.DockClientCount);
AIniFile.WriteInteger('My data', 'Panel1 LRDockWidth', panel1.LRDockWidth);
finally
AIniFile.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
AIniFile: TIniFile;
begin
AIniFile:= TIniFile.Create('config.ini');
try
panel1.Height:=AIniFile.ReadInteger('My data', 'Panel1 height', panel1.Height);
panel1.Left:=AIniFile.ReadInteger('My data', 'Panel1 Left', panel1.Left);
panel1.Top:=AIniFile.ReadInteger('My data', 'Panel1 Top', panel1.Top);
panel1.Width:=AIniFile.ReadInteger('My data', 'Panel1 Width', panel1.Width);
panel1.ParentWindow:=AIniFile.ReadInteger('My data', 'Panel1 ParentWindow', panel1.ParentWindow);
panel1.BevelWidth:=AIniFile.ReadInteger('My data', 'Panel1 BevelWidth', panel1.BevelWidth);
panel1.LRDockWidth:=AIniFile.ReadInteger('My data', 'Panel1 LRDockWidth', panel1.LRDockWidth);
finally
AIniFile.Free;
end;
end;
При запуске программы должен восстановливаться внешний вид программы, который был в момент предыдущего закрытия. Собираюсь делать это с помощью ini-файла, но что прописать в нем не знаю. а выглюдить должно это должно так (варианты состыкованные и несостыкованные):