Как сохранить всю форму в файл (как Delphi в .dfm)

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

constructor TForm1.Create(AOwner: TComponent); // override;

var

fname: string;

begin

{ Для динамически создаваемых контролов, может требоваться

RegisterClasses(..); }

fname := FormFilename;

if FileExists( fname ) then

begin

CreateNew(AOwner);

ReadComponentResFile(fname, Self);

end

else

inherited Create( AOwner );

end;

procedure TForm1.FormCloseQuery( Sender: TObject;

var CanClose: Boolean);

begin

WriteComponentResFile(FormFileName, Self);

end;

{/codecitation}

Добавить комментарий