Cita:
Empezado por eduarcol
seria bueno antes del cast verificar si encontro un objeto de la clase TButton o no haya devuelto un nil porq si no da error
|
Eso es muy cierto, entonces yo haría la cosa al revés, declaro Botongeneral como TComponent y el procedimiento lo dejo asi:
Código Delphi
[-]
procedure BotonVisible;
begin
BotonGeneral := nil;
BotonGeneral := FindComponent(nombreboton[5]);
if BotonGeneral <> nil then
TButton(BotonGeneral).Visible := False;
end;
De esa manera me evito el salto de dicho error que comentaste.