Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c