Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

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

 
lesstab ©   (2012-04-25 08:23) [0]

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


 
AV ©   (2012-04-25 08:55) [1]

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


 
lesstab ©   (2012-04-25 09:08) [2]

AV, Спасибо!


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

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


 
AV ©   (2012-04-25 09:40) [4]


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


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


 
lesstab ©   (2012-04-25 09:49) [5]

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


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;

Работает.



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

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.068 c
15-1353946630
Разведка
2012-11-26 20:17
2013.03.22
Кто знает как использовать DCPCrypt библиотеку?


15-1338582602
Юрий
2012-06-02 00:30
2013.03.22
С днем рождения ! 2 июня 2012 суббота


15-1353797738
DevilDevil
2012-11-25 02:55
2013.03.22
Перехватить любой Exception и подменить текст


6-1251381307
Student85236
2009-08-27 17:55
2013.03.22
Уважвемые коллеги! как сделать чтоб не ждать ответа от get запрос


15-1349641803
Юрий
2012-10-08 00:30
2013.03.22
С днем рождения ! 8 октября 2012 понедельник