Como pegar a tag de um botao que chama uma procedure?

Question

Ol�, bom dia.Como fa�o pra pegar a tag de um botao que chama uma procedure. O problema q esta procedure pode ser chamada por varios botoes, e todos com valores de tags diferentes. Como fazer isso?AttD...

Massuda · Answer

Depende de como a procedure recebe o bot�o. Por exemplo, se fosse um tratamento de OnClick, voc� poderia fazer...

procedure TSeuForm.BotaoClick(Sender: TObject);
var
  Botao: TButton;
begin
  if Sender is TButton then begin

    Botao := Sender as TButton;
    if Botao.Tag ...
...

Dbergkamps10 · Answer

massuda, valeu kra.Eu tava quase conseguindo. so faltava sacar o Sender as TSpeedButtonValeu mesmoBrigadao e otimo feriado....

F�rum Como pegar a tag de um botao que chama uma procedure? #341145