Name
Como posso saber o nome do componente que está com o setfocus
varnomedocomponentee := ;
varnomedocomponentee := ;
Zlink
Curtidas 0
Respostas
Catunda
31/07/2005
Pode incluir o codigo abaixo em um botão por exemplo.
var
I : Integer;
varnomedocomponentee : String;
begin
for I:= 0 to ControlCount -1 do
begin
if Controls[I] is TWinControl then
if (Controls[I] as TWinControl).Focused then
varnomedocomponentee := (controls[i].Name);
end;
end;
var
I : Integer;
varnomedocomponentee : String;
begin
for I:= 0 to ControlCount -1 do
begin
if Controls[I] is TWinControl then
if (Controls[I] as TWinControl).Focused then
varnomedocomponentee := (controls[i].Name);
end;
end;
GOSTEI 0
Zlink
31/07/2005
Valeu, muito
GOSTEI 0