Текущий архив: 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.053 c
