GARANTIR DESCONTO

Fórum Como concatenar variável com string referenciando a componen #354000

18/02/2008

0

Caros amigos, tenho um form com 19 botões e estou guardando em uma variável o código de cada um, tipo btn01, na variável lcBtnNum fica 01, como posso, concatenar esta variável, para saber qual botão foi selecionado?

lcBtnNum:String;

[color=red:3dc9f34051]//Ficaria assim?
´btn´ + lcBtnNum + .Font.Color := clRed;[/color:3dc9f34051]

Como Consigo Fazer isso?


Emir Neto

Emir Neto

Responder

Posts

18/02/2008

Marcosrocha

Você poderia linkar os cliques de todos os botões em um só e pelo Sender consegue trocar a cor co caption.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  (Sender as TBitBtn).Font.Color := clRed;
  if Sender = BitBtn1 then
  begin
    Faz algo
  end
  else if Sender = BitBtn2 then
  begin
    Faz outra coisa
  end;
end;



Responder

Gostei + 0

18/02/2008

Rjun

De uma pesquisada por [b:62b62331b8]RTTI[/b:62b62331b8].


Responder

Gostei + 0

20/02/2008

Emir Neto

Esta dúvida é porque eu guardo o código do botão em um arquivo .ini, para quando iniciar novamente o sistema ele lembre o último botão clicado, por isso a primeira dúvida ainda ficou sem solução. Se alguém puder me ajudar...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar