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

Создание динамических объектов   Найти похожие ветки 

← →
***mikle***   (2006-08-31 13:12) [0]

Уважаемые программисты, может кто-нибудь знает, как В 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;

---

← →
Dmitrij_K   (2006-08-31 13:14) [1]

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

---

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

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

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

---

← →
***mikle***   (2006-09-02 15:38) [3]

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

---

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

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



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