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

Delphi , Компоненты и Классы , Создание компонент

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

Code:

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://forum.sources.ru

Создание компонента во время выполнения приложения в Delphi достигается с помощью метода CreateControl, который позволяет назначать родительские свойства и использовать SetBounds для отображения контрола.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Создание компонент ::

Время компиляции файла: 2024-12-22 20:14:06
2025-04-10 20:20:24/0.0027339458465576/0