| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как получить Tag нажатой кнопки на фрейме...

lesstab ©   (2012-04-25 08:23:00) 

...если нажатие обрабатывается в Action

---

lesstab   (2012-04-25 09:49:00) [1]

У меня на один и тот же акшен повешено массив кнопок.


procedure TfrmLesstabFreeTimes.actFreeTimeButtonClickedExecute(
 Sender: TObject);
var
  dp, d, p : byte;
begin
    dp:= actFreeTimeButtonClicked.ActionComponent.Tag;
    d := StrToint(Copy(IntToStr(dp),1,1));
    p := StrToint(Copy(IntToStr(dp),2,1));
    if ButtonsGlyph[d,p] = 1 then
    begin
        ButtonsGlyph[d,p] := 0;
        FreeTimeButtons[d,p].Glyph.LoadFromResourceName(HInstance, 'undo');
    end
    else
    begin
        ButtonsGlyph[d,p] := 1;
        FreeTimeButtons[d,p].Glyph.LoadFromResourceName(HInstance, 'checked');
    end;
end;

Работает.

---

AV   (2012-04-25 09:40:00) [2]

> Медвежонок Пятачок ©   (25.04.12 09:32) [3]


предположу что:
например, если перегружен интерфейс - пишем в лог откуда вызывают. Если откуда-то не вызывают, грохаем контрол без болезни для юзеров

---

Медвежонок Пятачок   (2012-04-25 09:32:00) [3]

А зачем?
Если учесть что на один и тот же акшен может быть повешено десять кнопок?
Нужно анализировать именно акшен.

---

lesstab   (2012-04-25 09:08:00) [4]

AV, Спасибо!

---

AV   (2012-04-25 08:55:00) [5]

procedure TForm1.act1Execute(Sender: TObject);
begin
 ShowMessage(IntToStr(act1.ActionComponent.Tag));

---

Наверх