| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как к TToolButton прикрутить горячие клавиши? [D5, NT4, Win2k, WinXP]
serg128 © (2004-07-19 13:45:00)Т.е. я динамически создал TToolButton. Подвесил к нему на OnClick функцию. А теперь хочу её ещё запускать через горячие клавиши. Как это сделать?
serg128 (2004-07-19 14:48:00) [1]Всё, разобрался! Пасиба.
serg128 (2004-07-19 14:31:00) [2]TToolButton *pButton = new TToolButton(Tb);
pButton->Parent = Tb;
TAction *ba = new TAction(ActionList);
ba->Name = "a" + IntToStr(i);
ba->ShortCut = TextToShortCut(cds->FieldByName("HOTKEY")->AsString);
ba->OnExecute = RunPRG;
if(cds->FieldByName("OPTS")->AsInteger & astHint)
ba->Hint = cds->FieldByName("HINT")->AsString;
if(cds->FieldByName("OPTS")->AsInteger & astRun)
ba->Enabled = true;
else ba->Enabled = false;
ba->ImageIndex = i++;
pButton->ShowHint= true;
ba->Tag = cds->FieldByName("ID_PRG")->AsInteger;
pButton->Action = ba;
Думкин (2004-07-19 14:21:00) [3]
> [5] serg128 (19.07.04 14:08)
Action.Execute куда смотрит?
serg128 (2004-07-19 14:08:00) [4]Неработает, Action на кнопке появился, но по нажатию ничего не происходит :((
serg128 (2004-07-19 14:00:00) [5]А без TAction неполучится?
serg128 (2004-07-19 14:00:00) [6]А без TAction неполучится?
clickmaker (2004-07-19 13:49:00) [7]TAction.ShortCut
Думкин (2004-07-19 13:49:00) [8]TAction
| |
