Como concatenar variável com string referenciando a componen
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?
lcBtnNum:String;
[color=red:3dc9f34051]//Ficaria assim?
´btn´ + lcBtnNum + .Font.Color := clRed;[/color:3dc9f34051]
Como Consigo Fazer isso?
Emir Neto
Curtidas 0
Respostas
Marcosrocha
18/02/2008
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;GOSTEI 0
Rjun
18/02/2008
De uma pesquisada por [b:62b62331b8]RTTI[/b:62b62331b8].
GOSTEI 0
Emir Neto
18/02/2008
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...
GOSTEI 0