Текущий архив: 2003.04.24;
Скачать: CL | DM;

Вниз

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)

---

Страницы: 1 вся ветка

Текущий архив: 2003.04.24;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.017 c