Главная » Статьи » Delphi » Статьи Delphi

Скачивать материалы с сайта, могут только зарегистрированные пользователи.
Для регистрации заполните два поля ниже!

Через минуту Вы получите "Гостевой доступ"




Создание компонент во время выполнения программы и обработка их событий
Создание компонент во время выполнения программы и обработка их событий

В данном примере по созданию окна создаются кнопки, по нажатию каждой выводится сообщение, в котором значится заголовок кнопки, вызвавшей событие. Сначала вынесите на форму компонент TButton и по его нажатию напишите такой код:


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage((Sender as TButton).Caption);
end;

А основное действие свершится по созданию окна:


procedure TForm1.FormCreate(Sender: TObject);
var
Button1: TButton;
i: integer;
begin
for i:=0 to 4 do
begin
Button1:=TButton.Create(Form1);
with Button1 do
begin
Parent := Form1;
Caption := 'Кнопка ' + IntToStr(i + 1);
Height := 25;
Width := 75;
Top := i * 25 + 25;
Left := 50;
OnClick := Button1Click;
end;
end;
end;

Категория: Статьи Delphi | Добавил: c1 (2009 Июль 09)
Просмотров: 581 | Теги: Создание компонент во время выполне | Рейтинг: 0.0/0

Выразить благодарность - Поделиться с друзьями!

 

Здесь все о технической стороне 1С!

 

Узнай, как правильно администрировать 1С Предприятие
Регистрируйся на бесплатный 7-ми дневный курс сейчас:

Ваш E-Mail в безопасности



Всего комментариев: 0
avatar