закладки в 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;

закладки в pagecontrol Найти похожие ветки