Delphi

Вопрос

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

Ответ

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;

Peter Below