Ejecutar onchange de combobox por codigo

[darkone2k4]

Salu2 amigos.

Tengo varios combobox en mi formulario:
El primero de ellos muestra un listado con empresas.
El segundo, dependiendo de la empresa seleccionada, me carga las sucursales asociadas a dicha empresa.
El tercero me muestra los años con los que ha trabajado la empresa.
El cuarto me muestra los meses.

Los combos 2 a 4 se llenan dependiendo de la empresa que se seleccione en el primer combo, por lo que en el evento onchange de dicho combo, tengo el procedimiento de llenado de datos obtenidos de las tablas.
Hasta ahí todo bien, el problema que tengo, es que he llegado a un punto en que necesito ejecutar el evento onchange del primer combo por código y no sé como hacerlo.
Es posible hacerlo???

Desde ya, muchas gracias.

salu2.

[ecfisa]

Hola Darkone2k4.

La respuesta es: Si es posible.

Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1Change(self);  // Nombre_del_combo+Change
end;

Saludos.

[darkone2k4]

Empezado por ecfisa

Hola Darkone2k4.

La respuesta es: Si.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.ItemIndex := 1;
  ComboBox1Change(self);
end;

Saludos.

muchas gracias ecfisa, era lo que necesitaba.

salu2.

[ecfisa]

De nada Darkone, fijate que edité el primer post por que no había probado el código aún ( no tenía el delphi en ese equipo) pero no llegué a corregirlo antes de tu lectura.

Me quedó la duda y luego lo probé, no es necesario el cambiar el ItemIndex del combo.

Otra cosa, funciona igual para un Edit, ListBox, etc, anteponiendo el nombre del componente.

Saludos.

[darkone2k4]

Empezado por ecfisa

De nada Darkone, fijate que edité el primer post por que no había probado el código aún ( no tenía el delphi en ese equipo) pero no llegué a corregirlo antes de tu lectura.

Me quedó la duda y luego lo probé, no es necesario el cambiar el ItemIndex del combo.

Otra cosa, funciona igual para un Edit, ListBox, etc, anteponiendo el nombre del componente.

Saludos.

Solo necesitaba el

Código Delphi [-]
combobox1change(self);

gracias nuevamente.