Ver Mensaje Individual
  #2  
Antiguo 15-02-2021
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
Cita:
Empezado por LACV Ver Mensaje
Buen dia estoy intentando limpiar todos los TComboBox de un formulario con un procedimiento pero me arroja un error y no limpia la seleccion.
Código Delphi [-]
procedure TFrmHome.LimpiarCombo(formulario2: TForm);
var
  i, tamano: integer;
begin
  tamano := formulario2.ComponentCount;
  for i := 0 to tamano - 1 do
    if (formulario2.Components[i] is TEdit) then
    begin
      TComboBox(formulario2.Components[i]).ClearSelection;
    end;
end;

Código Delphi [-]
LimpiarCombo(Self);

gracias de antemano
Estás validando que el componente sea un TEdit y luego fuerzas el cast para usarlo como TComboBox. Y si bien el TComboBox tiene el procedimiento ClearSelection, el TEdit no!
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita