По клику на кнопке создаю новое окно (TFrmProfile = class(TForm), класс описан в другом юните)
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | unit Unit1;
var
Form1: TForm1;
FormNo: Byte;
implementation
procedure TForm1.Button1Click(Sender: TObject);
var F: TFrmProfile;
begin
F:= TFrmProfile.CreateWithType(Application, MT);
FormNo:= FormNo+1;
F.Name:= 'Forma'+IntToStr(FormNo);
ComboBox1.Items.Append(F.Name);
F.Show;
Label1.Caption:= IntToStr(Application.ComponentCount);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
var i: Byte;
begin
for i:= 0 to Application.ComponentCount-1 do
begin
if Application.Components[i].Name = ComboBox1.Text then
(Application.Components[i] as TFrmProfile).Show;
end;
end;
|
Label1.Caption показывает, что при закрытии динамически созданной формы, она не уничтожается, а просто скрывается (Hide)
Код:
1 | (Application.Components[i] as TFrmProfile).Show;
|
делает ранее закрытую форму видимой.
Собственно задача изничтожить форму при закрытии.
Цитата:
|
Обработчик OnClose имеет параметр Action со следующими четырьмя возможными значениями: caNone - Форме не разрешено закрыться. caHide - Вместо закрытия, форма будет скрыта. caFree - Форма будет закрыта, и занятые ей ресурсы будут освобождены. caMinimize - Вместо закрытия, форма будет минимизирована.
|
отсюда логично проистекает:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | unit MineForms;
TFrmProfile = class(TForm)
public
constructor CreateWithType(AOwner: TComponent;
AMetterType: TMetterType=mtPrutok; Dummy: Integer=0);
procedure Close(Sender: TObject; var Action: TCloseAction);
end;
implementation
procedure TFrmProfile.Close(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
|
не помогает
15.05.2014, 19:43
Уничтожить динамически созданную форму
Линейный вид
