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

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

← →
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;

---

← →
Anatoly Podgoretsky ©   (2008-04-03 23:09) [4]

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

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

---

Страницы: 1 вся ветка

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



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