Lenguaje de programación Borland Delphi
Este ejemplo muestra cómo seleccionar un elemento de un ComboBox con las propiedades 'Style' = 'csDropDownList' y 'Sorted' = 'True'. En este caso no se puede seleccionar un elemento utilizando la propiedad 'Text' hay que hacerlo utilizando la propiedad 'IndexOf'. A continuación os mostramos un ejemplo en Delphi:
...
tc.Close;
txtUsuario.Clear;
txtUsuario.Items.Add('[Todos]');
tc.SQL.Clear;
tc.SQL.Add('SELECT DISTINCT(USUARIO) FROM HISTORICO WHERE USUARIO IS NOT NULL');
tc.Open;
while not tc.eof do
begin
txtUsuario.Items.Add(tc.fieldbyname ('USUARIO').AsString);
tc.Next;
end;
txtUsuario.ItemIndex := txtUsuario.Items.IndexOf ('[Todos]');
...
Donde:
* 'txtUsuario' es un componente de tipo TComboBox con la propiedad 'Style' = 'csDropDownList'.
* 'tc' es un componente de tipo TQuery.
Lo que hace el ejemplo es insertar en el componente txtUsuario tantas líneas como usuarios haya en la tabla 'HISTORICO' y, añade también una línea (item) con el texto '[Todos]', por último selecciona el item '[Todos]' con:
txtUsuario.ItemIndex := txtUsuario.Items.IndexOf ('[Todos]');
Publicado el: 2006-06-16