Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как создать компонент во время выполнения приложения?

01.01.2007

При создании визуальных контролов в runtime, важным моментом является назначение родительских свойств и использование метода SetBounds, чтобы этот контрол стал видимы.

type 
  TForm1
= class(TForm)
 
protected
   
MyLabel: TLabel;
    procedure
LabelClick(Sender: TObject);
    procedure
CreateControl;
 
end;
 
procedure TForm1
.LabelClick(Sender: TObject);
begin
 
(Sender as Label).Caption := ...
end;
 
procedure TForm1
.CreateControl;
var
 
ALeft, ATop, AWidth, AHeight: Integer;
begin
 
ALeft := 10;
 
ATop := 10;
 
AWidth := 50;
 
AHeight := 13;
 
MyLabel := TLabel.Create(Self);
 
MyLabel.Parent := Self;      
 
MyLabel.Name:='LabelName';
 
MyLabel.SetBounds(ALeft, ATop, AWidth, AHeight);
 
MyLabel.OnClick := LabelClick;
end;

Взято из https://forum.sources.ru