| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Dark ©   (2008-04-03 22:43:00) 

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;

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

---

Anatoly Podgoretsky   (2008-04-03 23:09:00) [1]

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

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

---

Dark   (2008-04-03 23:04:00) [2]

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

---

Dark   (2008-04-03 22:50:00) [3]

Спасибо

---

Игорь Шевченко   (2008-04-03 22:46:00) [4]

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

---

Наверх