Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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 и FreePascal.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
15.12.2019 14:56:17/0.014076948165894/0