Текущий архив: 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.011 c
