[Lazarus-es] Combobox

Julio C. Taborda julio_taborda en yahoo.com.ar
Mie Dic 8 17:13:19 CET 2010


Hola, 
> > procedure TForm2.ComboBox1Change(Sender: TObject);
> > begin
> >    Combobox1.Clear;
> >    zquery1.SQL.Text:= 'SELECT * FROM empresas';
> >    zquery1.Open;
> >    while not zquery1.EOF  do
> >    begin
> >     Combobox1.Items.Add(ZQuery1.FieldByName('nombre').AsString);
> >     zQuery1.Next;
> >    end;
> >    zQuery1.Close;
> > end;
> >

Probá de poner ese código dentro de otro evento, por ejemplo en
TForm2.show.




More information about the Lazarus-es mailing list