Текущий архив: 2003.05.12;
Скачать: CL | DM;
Вниз
закладки в pagecontrol Найти похожие ветки
← →
Zirus © (2003-04-29 11:33) [0]Здравствуйте! Как программно создаются закладки в pagecontrol?
← →
$hade © (2003-04-29 11:37) [1]а зачем в pagecontrol?
бери TabControl...
TabControl.Tabs.Add("Page1");
← →
Skier © (2003-04-29 12:04) [2]>Zirus
var
ATabSheet : TTabSheet;
begin
ATabSheet := TTabSheet.Create(AYourPageControl);
ATabSheet.Parent := AYourPageControl;
ATabSheet.PageControl := AYourPageControl;
end;
← →
MBo © (2003-04-29 13:05) [3].Parent - здесь лишнее
← →
Skier © (2003-04-29 13:11) [4]Да. Точно. Parent - лишнее. Надо запомнить...:)
procedure TTabSheet.SetPageControl(APageControl: TPageControl);
begin
if FPageControl <> APageControl then
begin
if FPageControl <> nil then FPageControl.RemovePage(Self);
Parent := APageControl;
if APageControl <> nil then APageControl.InsertPage(Self);
end;
end;
← →
GTS (2003-04-29 13:28) [5]а, может, попробывать что-то типа:
with TTabSheet.Crete(self) do
begin
pagecontrol:=pagecontrol1;
end;
Страницы: 1 вся ветка
Текущий архив: 2003.05.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
