Вы можете легко это сделать, передавая форму при закрытии в поток для записи ее в отдельный файл. Затем, когда это создано, проверяйте наличие файла и организуйте его чтение. Вот как можно это сделать:
const FileName = 'Form1.stm' ; constructor TForm1.Create( AOwner : TComponent ) ;beginif FileExists( FileName ) then beginCreateNew( AOwner ) ;ReadComponentResFile( FileName, Self ) ;end elseinherited Create( AOwner ) ; { поместите здесь код в стиле 'OnCreate' }end ; procedure TForm1.FormDestroy(Sender: TObject);beginWriteComponentResFile( FileName, Self ) ;end; |
Имейте в виду, что это не вызывает OnCreate. В действительности, вам OnCreate и не нужен, поскольку сюда вы можете поместить код, необходимый в обработчике OnCreate; данный код следует поместить после конструктора Create, как и указано в комментарии.
- Mike Scott [000855]