FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#1
|
|||
|
|||
"Urgente!" ImageComboBox
Tengo un Hermosos ImageComboBox para el login de los usuarios que lo lleno con datos de un query hecho a la BD. Ustedes diran para que el ImageComboBox... Lo que queria hacer es que aparesca al lado de cada nombre de usuario una carita de usuario (en este caso para todos igual)... es decir: (les dibujo el combo)
ndomin |V| imarco ..... Hasta ahi de maravillas... El autocompletar me anda fantastico... el tema es que cuando elijo algo del combobox no me lo toma, es decir que siempre me queda el primero. si escribo imarco (me lo va autocompletando) y cuando le doy enter o click no me lo toma y queda ndomin. les paso el codigo.... Código:
procedure TFormLogin.FormShow(Sender: TObject); var Items: TcxImageComboBoxItems; Item: TcxImageComboBoxItem; begin FormBD.IBDatabase.Connected:=True; FormBD.IBTransaction1.Active:=True; IBQuery1.SQL.Clear; IBQuery1.SQL.Add('SELECT nombre_usuario FROM PERMISOS;'); IBQuery1.Open; Items:= Usuario.Properties.Items; Items.BeginUpdate; try Items.Clear; while not IBQuery1.Eof do begin Item:= Items.Add as TcxImageComboBoxItem; // Add a new item Item.Description:= IBQuery1.Fields[0].AsString; // Set the item's description Item.ImageIndex:= 0; // Set the item's image index IBQuery1.Next; end; IBQuery1.Close; finally Items.EndUpdate; end; Usuario.ItemIndex:=0; end; MIL GRACIAS!!! Última edición por nicolasdom fecha: 22-09-2004 a las 01:38:48. |
|
|
|