Карта сайтаСсылкиКонтакты

Создание компонентов во время выполнения

PDF Печать
Статьи

Когда Вы создаете визуальное управление во время выполнения, важно назначить свойство родителя и использовать метод SetBounds, чтобы управление было видимо.


uses Windows;

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; 

По материалам http://delphi3000.com


 

Добавить комментарий


Защитный код
Обновить