LMDCombobox e itemindex
Hola comunidad, disculpen si esta posteado antes pero no lo encontre y me urge.
Delphi 6 SP3, Windows XP SP2
Tengo varios LMDCombobox a los cuales les asigno itemindex:=0 en el onshow de la form
El problema es que si bien los combos estan llenos no aparece en el edit del combo hasta q explicitamente hago click y selecciono algun item, es mas si llamo por segunda vez a un boton q introduce itemindex:=0 el texto si aparece.
curiosamente en la primer parte en el Onexit del combo cuando este no muestra texto aun asi haya asignado su itemindex :=0, este aparece como -1
esto seria el button:
procedure TForm5.cxButton4Click(Sender: TObject);
begin
cxDateEdit1.Clear; //cargada
cxDateEdit2.Clear; //visitada
cxDateEdit3.Clear; //realizada
LMDEdit1.Clear; //numero de cuenta
LMDEdit2.Clear; //numero de obra
cxCurrencyEdit1.Clear; //visita numero
LMDComboBox4.Itemindex:=0 ; //empresas
LMDComboBox1.itemindex:=0; //consultora
LMDComboBox2.itemindex:=0; //asesoramiento
LMDComboBox2.OnSelect(self);
//LMDComboBox3.itemindex:=0;
cxDateEdit1.Date:=date;
insert:=true;
CheckBox1.Checked:=false;
image1.Visible:=false;
image2.Visible:=true;
Image3.Visible:=false;
FocusControl(LMDComboBox4);
y esto en la form
cxbutton4.onclick(self);
no se porq se comportan de esa manera, desde ya muchas gracias
|