quot;FindComponentquot; não funciona!
Bom dia pessoal,
Não sei usar muito bem a função FindComponent, mais acredito que o código esteja certo. O problema é que nunca acha o componente que eu quero. Olhem o código abaixo.
Ele sempre dá a mensagem que o componente não existe.
Tem alguma coisa que eu to fazendo errado no código acima?
Qualquer ajuda é muito bem vinda.
Lucas!
Não sei usar muito bem a função FindComponent, mais acredito que o código esteja certo. O problema é que nunca acha o componente que eu quero. Olhem o código abaixo.
...
qrlNomeSocio1: TQRLabel;
qrlNomeSocio2: TQRLabel;
qrlNomeSocio3: TQRLabel;
...
procedure TForm1.ButtonClick(sender: TObject);
var i: integer;
begin
for i := 1 to 3 do
begin
if FindComponent(´qrlNomeSocio´+IntToStr(i)) <> nil then
SHowMEssage(´O Componente existe!´)
else
ShowMessage(´O Componente não existe!´);
end;
end; Ele sempre dá a mensagem que o componente não existe.
Tem alguma coisa que eu to fazendo errado no código acima?
Qualquer ajuda é muito bem vinda.
Lucas!
Lucas Silva
Curtidas 0