Главная Всё о Delphi Регистрация

Вход

Приветствую Вас Гость | RSSВторник, 21.11.2017, 05:36
Меню сайта

Категории каталога
Начинающим [44]
Материалы для начинающих
Трюки [2]
Трюки
Разное [94]
Материалы на разные темы

Наш опрос
Какой процессор у вас стоит?
Всего ответов: 133

Каталог статей
Главная » Статьи » Начинающим

Урок 12. Изучаем TactionList

В данном уроке изучим TactionList. На двух прошлых уроках мы с вами посмотрели, как можно динамически создавать компоненты управления. Но у созданных нами кнопок был один недостаток - при нажатии на них ничего не происходило. Давайте сейчас посмотрим, как к созданной динамически кнопке можно добавить (также динамически) код, который будет выполняться при нажатии на ней.

Возьмите за основу программу из урока 10. Добавьте на её форму компонент ActionList с вкладки Standard.

Для добавления действия в наш компонент ActionList1 сделайте двойной щелчок на нем. Появится окно Editing Form1.ActionList1. Нажмите в нем на кнопку New Action,

в правом списке появится новое действие Action1.

Сделайте на нем двойной щелчок для перехода в окно кода. Добавите ниже приведенный код.

 

Код:

 

procedure TForm1.Action1Execute(Sender: TObject);

begin

            MessageDlg('Событие для новой кнопки',

            mtConfirmation,

            [mbOK],    0);

end;

 

Мы добавили в нашу программу некоторое действие (появление MessageBox). Это действие называется Action1. Теперь свяжем этой действие с нашей кнопкой. Для этого добавьте в обработчик Button1Click ниже приведенный код.

 

Код:

 

            btn.Caption:='Новая кнопка';

            btn.Action:=Action1;

 

В этой строке мы связываем свойство Action для кнопки с конкретным событием Action1.

Это свойство присутствует и в Инспекторе объектов. Теперь запускайте программу, нажимайте на кнопку "Дополнительно", потом на нашу динамически созданную кнопку. Появится MessageBox - как мы и задумывали. Таким образом мы присоединили к динамически созданной кнопке некоторое действие.

            Всё на этом урок закончен.

Категория: Начинающим | Добавил: Дубин (09.08.2007) | Автор: Дубин Михаил Олегович
Просмотров: 575 | Рейтинг: 5.0/1 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Статистика

Рейтинг@Mail.ru

Реклама

Copyright MyCorp © 2017Сайт управляется системой uCoz