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

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

Создание динамических объектов [D7, Win95/98, WinME, NT4, Win2k, WinXP]

***mikle*** ©   (2006-08-31 13:12:00) 

Уважаемые программисты, может кто-нибудь знает, как В Delphi динамически создавать визуальные объекты, типа TButton, TImage, TLabel и т.д. Дальше идёт фрагмент кода, которым я пытался это сделать, но так и не смог. Помогите пожалуйста!

var
 Form1: TForm1;
 a:array[1..10] of tbutton;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=Tbutton.Create(Form1);
a[i].Font:=form1.Label1.Font;
a[i].Caption:='my button';
a[i].Top:=i*30;
a[i].Left:=i*30;
a[i].width:=20;
a[i].Height:=20;
a[i].Visible:=true;
a[i].Brush.Color:=clbtnface;
if a[i].visible=true then label1.Caption:=label1.Caption+#13+a[i].Caption+' left='+inttostr(a[i].left)+' right'+inttostr(a[i].Top);
end;

---

***mikle***   (2006-09-02 15:38:00) [1]

Большое спасибо

---

Плохиш   (2006-08-31 13:28:00) [2]

> ***mikle***   (31.08.06 13:12)  

Все упоминания Form1в procedure TForm1.FormCreateзаменить на self и Parentприсвоить тоже self.

---

Dmitrij_K   (2006-08-31 13:14:00) [3]

Компоненту надо назначить Parent := Form1

---

Наверх