Собственный Action

← →
Ega23 © (2008-01-29 20:56) [0]

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

← →
JesteR (2008-01-29 21:05) [1]

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

← →
Ega23 © (2008-01-29 21:06) [2]

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

А где пишешь?

← →
JesteR (2008-01-29 21:10) [3]

{ TMyAction }

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

procedure Register;

implementation

uses // модули

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

Собственный Action Найти похожие ветки