Текущий архив: 2008.02.24;
Скачать: CL | DM;
Вниз
Собственный 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;
Страницы: 1 вся ветка
Текущий архив: 2008.02.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
