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

Delphi

01/05/2007

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?

Att
Dalton


Dbergkamps10

Dbergkamps10

Curtidas 0

Respostas

Massuda

Massuda

01/05/2007

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 ...
...



GOSTEI 0
Dbergkamps10

Dbergkamps10

01/05/2007

massuda, valeu kra.
Eu tava quase conseguindo. so faltava sacar o Sender as TSpeedButton
Valeu mesmo
Brigadao e otimo feriado.


GOSTEI 0
POSTAR