Цитата:
|
Сообщение от Black Raider
хммм... как объяснить то... создавать имелось ввиду не заного кидать все контролы и прочие компоненты.
у тебя сейчас происходит следующее:
при запуске программы программа создает твое окно в памяти.
при попытке 1 раз его открыть оно откроется, при закрытии у тебя стоит
caFree говорящее о том что необходимо при закрытии формы удалить ее из памяти.
при повторно открытии ее просто нет в памяти вот и программа у тебя и выдает ексепшен.
выходы написаны выше.
вообще не понятно зачем ты делаешь caFree ?
|
ладно хорошо,тогда без использования caFree, пляшем тогда отсюда! Как закрыть дочернюю форму, не свернуть а закрыть. Сейчас при нажатии на крестик(закрыть) она просто сворачивается
Хмм.. создавать типа так
Код:
procedure TMainForm.N2Click(Sender: TObject);
begin
CreateChildForm ('Работники');
end;
procedure TMainForm.CreateChildForm(const childName : string);
var
Child: TForm2;
begin
Form2 := TForm2.Create(Application);
Form2.Caption := childName;
end;