Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];
ВнизСоздание динамических объектов Найти похожие ветки
← →
***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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.037 c