Найдено 4 результата

volf
18.08.2006 13:42:47
Форум: Lazarus
Тема: Свойства Form
Ответы: 9
Просмотры: 10283

хм одну строчку забыл хотя и без нее может работать
должно быть так
begin
Application.Initialize;
frmSplash := TfrmSplash.Create(nil);
try
frmSplash.Show;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
.&#46 ...
volf
17.08.2006 20:16:27
Форум: Lazarus
Тема: Свойства Form
Ответы: 9
Просмотры: 10283

Товарищи зачем так все сложно.
Возможно необходимо решить проблему Splash формы (которая отображает красивый логотип программы пока остальная часть программы стартует). Для этого надо изменить стандартный блок в файле проэкта
Application.Initialize;
Application.CreateForm(TfrmSplash ...
volf
17.08.2006 19:36:40
Форум: Lazarus
Тема: Как при закрытии формы ее же и уничтожить?
Ответы: 29
Просмотры: 30635

Для того чтоб не возникало проблем с уничтоженными объектами лучше всего использовать процедуру
FreeAndNil()
она равносильна выполнению (например для оъекта Form1)
Form1.Free;
Form1 := nil;
вызов метода Free или Destroy выполняет освобождение памяти распределенной под данный ...
volf
16.08.2006 13:50:51
Форум: Lazarus
Тема: Как при закрытии формы ее же и уничтожить?
Ответы: 29
Просмотры: 30635

Код: Выделить всё

procedure TForm2.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  CloseAction := caFree;
end;

Но очень часто после добавления этой строчки возникают Access Violation. Поэтому надо быть осторожным с вызовами уже уничтоженных объектов!