Имеются две формы. На второй форме - StringGrid, который в дизайне всяко-разно разукрашивается, настраивается и т.д. Задача - после манипуляций с StringGrid быстро его возвращать к первоначальному виду в рантайме. Желания программно запоминать его состояние для последующего восстановления никакого нет, т.к. это крайне трудозатратно, поэтому решил: а) сохранять состояние StringGrid до изменений; б) уничтожать StringGrid после изменений; в) воссоздавать (восстанавливать) изначальный StringGrid.
var
Form1: TForm1;
TempSG: TStringGrid;
implementation
{$R *.dfm}
procedure TForm1.SaveForm2SG1Click(Sender: TObject);
begin
TempSG := Form2.SG1;
end;
procedure TForm1.DestroyForm2SG1Click(Sender: TObject);
begin
if Form2.SG1 <> nil then FreeandNil(Form2.SG1);
end;
procedure TForm1.RestoreForm2SG1Click(Sender: TObject);
begin
if Form2.SG1 = nil then
begin
Form2.SG1 := TempSG; // ерунда, т.к. объекта нет!
Form2.SG1.Parent := Form2; // AV
end;
end;
В общем, хочу понять каким образом возможно сохранить состояние StringGrid, а потом динамически создать новый StringGrid с сохраненным ранее состоянием?
P.S. Изначально динамическое создание StringGrid с указанием всех свойств, повторюсь, не интересует. Вопрос о другом.