хм одну строчку забыл хотя и без нее может работать
должно быть так
begin
Application.Initialize;
frmSplash := TfrmSplash.Create(nil);
try
frmSplash.Show;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
.. ...
Найдено 4 результата
- 18.08.2006 13:42:47
- Форум: Lazarus
- Тема: Свойства Form
- Ответы: 9
- Просмотры: 10283
- 17.08.2006 20:16:27
- Форум: Lazarus
- Тема: Свойства Form
- Ответы: 9
- Просмотры: 10283
- 17.08.2006 19:36:40
- Форум: Lazarus
- Тема: Как при закрытии формы ее же и уничтожить?
- Ответы: 29
- Просмотры: 30635
- 16.08.2006 13:50:51
- Форум: Lazarus
- Тема: Как при закрытии формы ее же и уничтожить?
- Ответы: 29
- Просмотры: 30635
Код: Выделить всё
procedure TForm2.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
CloseAction := caFree;
end;Но очень часто после добавления этой строчки возникают Access Violation. Поэтому надо быть осторожным с вызовами уже уничтоженных объектов!
