TabSheet

← →
Alex-21 (2003-04-12 20:51) [0]

Пишу вот нижеприведенный кусок кода:

procedure TForm1.Create1Click(Sender: TObject);
begin
TabSheet:= TTabSheet.Create(PageControl1);
with TabSheet do begin
PageControl := PageControl1;
Name := "TabSheet"+ IntToStr(PageControl1.PageCount);
Caption := Name;
end;
PageControl1.ActivePage:= TabSheet;
end;

procedure TForm1.Close1Click(Sender: TObject);
begin
with TabSheet do
PageControl1.ActivePage.Free;
end;

И здесь не работает. Когда сначала создается TabSheet, потом разгружается TabSheet и после этого невозможно заново создать TabSheet. Выдается ошибка. Где я не так сделал?

← →
Song © (2003-04-13 11:25) [1]

FreeAndNil(TabSheet)

TabSheet Найти похожие ветки