Как сохранить всю форму в файл (как Delphi в .dfm)
constructor TForm1.Create(AOwner: TComponent); // override;var
fname: string;
begin{ Для динамически создаваемых контролов, может требоваться
RegisterClasses(..); }
fname := FormFilename;
if FileExists( fname ) thenbegin
CreateNew(AOwner);
ReadComponentResFile(fname, Self);
endelseinherited Create( AOwner );
end;
procedure TForm1.FormCloseQuery( Sender: TObject;
var CanClose: Boolean);
begin
WriteComponentResFile(FormFileName, Self);
end;
Статья Как сохранить всю форму в файл (как Delphi в .dfm) раздела Программа и Интерфейс Формы может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.