Как сохранить всю форму в файл (как Delphi в *.dfm)
Как сохранить всю форму в файл (как Delphi в *.dfm)
Как сохранить всю форму в файл (как 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;
