Как к TToolButton прикрутить горячие клавиши?

← →
serg128 (2004-07-19 13:45) [0]

Т.е. я динамически создал TToolButton. Подвесил к нему на OnClick функцию. А теперь хочу её ещё запускать через горячие клавиши. Как это сделать?

← →
clickmaker © (2004-07-19 13:49) [1]

TAction.ShortCut

← →
Думкин © (2004-07-19 13:49) [2]

TAction

← →
serg128 (2004-07-19 14:00) [3]

А без TAction неполучится?

← →
serg128 (2004-07-19 14:00) [4]

А без TAction неполучится?

← →
serg128 (2004-07-19 14:08) [5]

Неработает, Action на кнопке появился, но по нажатию ничего не происходит :((

> [5] serg128 (19.07.04 14:08)

Action.Execute куда смотрит?

← →
serg128 (2004-07-19 14:31) [7]

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;

← →
serg128 (2004-07-19 14:48) [8]

Всё, разобрался! Пасиба.

Как к TToolButton прикрутить горячие клавиши? Найти похожие ветки