| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Собственный Action [D7]

Ega23 ©   (2008-01-29 20:56:00) 

Допустим, я хочу создать класс своих экшенов. Например такие, чтобы при выполнении ещё и файл звуковой проигрывали.
Как создать, в принципе, ясно: унаследоваться от TContainedAction и т.п.
Вопрос в другом: каким образом добавить данный класс экшенов в TActionList, дабы ими можно было в Design-Time оперировать?

---

JesteR   (2008-01-29 21:10:00) [1]

{ TMyAction }

 TMyAction = class(TAction)
 public
   // Описание методов
 end;

procedure Register;

implementation

uses // модули

procedure Register;
begin
 // Сюда пишешь то что я написал выше
end;

---

Ega23   (2008-01-29 21:06:00) [2]

> Пишешь:
>  RegisterActions('LibraryMyAction', [TMyAction], nil);


А где пишешь?

---

JesteR   (2008-01-29 21:05:00) [3]

Пишешь:
 RegisterActions('LibraryMyAction', [TMyAction], nil);
После этого кликаешь два раза на ActionList.
Далее выбираешь New Standart Action (Ctrl + Ins) и находишь свой Action

---

Наверх