Динамическое создание...

← →
Dark © (2008-04-03 22:43) [0]

with PageControl1 do
begin
with TTabSheet.Create(Self) do
begin
PageControl := PageControl1;
TabVisible := (PageIndex mod 2 = 0);
Caption :=listbox1.Items[k];
with TButton.Create(self) do
begin
Caption:="Âûéòè èç ðåæèìà ðåäàêòèðîâàíè&# 255;";
Width:=200;
Height:=23;
Top:=-200;
Left:=-200;
end;
end;
ActivePage.Enabled:=false;
SelectNextPage(false,true);
ActivePage.Enabled:=false;
SelectNextPage(true,true);
SelectNextPage(true,true);
//pagecontrol1.
end;

Вот после исполнения этого куска кода по идее должна появиться кнопочка на вкладке..но она не появляется!!

← →
Игорь Шевченко © (2008-04-03 22:46) [1]

with TButton.Create(self) do
begin
Parent := то, где кнопке появляться
Caption:="Âûéòè èç ðåæèìà ðåäàêòèðîâàíè&# 255;";
Width:=200;
Height:=23;
Top:=-200;
Left:=-200;
end;

← →
Dark © (2008-04-03 22:50) [2]

Спасибо

← →
Dark © (2008-04-03 23:04) [3]

Ещё возник вопрос: как добавить в мою кнопку обработку события OnClick?
Я пишу:
with TButton.Create(self) do
begin
Parent := PageControl1.Pages[x];
Caption:="Âûéòè èç ðåæèìà ðåäàêòèðîâàíè";
Width:=200;
Height:=23;
Top:=200;
Left:=200;
Onclick:=ExitRed;//У меня так процедура называется
end;

> Dark (03.04.2008 23:04:03) [3]

Ты уже добавил, только нужна не процедура, а метод.

Динамическое создание... Найти похожие ветки