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

← →
***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]

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

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