Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];

Вниз

Как к 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 на кнопке появился, но по нажатию ничего не происходит :((

---

← →
Думкин ©   (2004-07-19 14:21) [6]

> [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]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.04 c