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

Written on 16 Сентября 2006. Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 77 из 86

Как сохранить всю форму в файл (как 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, Vladimir Titov}

форум delphi