DBCOMBOBOX에서 특정 item를 선택하면 마지막item만 선택됨. 선택한 아이템이 DBCOMBOX.TEXT에 나와야 하는데...

Change이벤트에 코딩하면 아이템 값이 안 나옴.

아래와 같이 코딩함.



procedure TFormUse.DBCombo1DropDown(Sender: TObject);

var

strSQL: String;

begin



With QueryLarge do

begin

try

Close;



SQL.CLEAR;



strSQL := ' SELECT * FROM 대분류 ';



SQL.Add(strSQL);



open;





if DBCombo1.DroppedDown = true then



edit1.text := (Trim(FieldByName('대분류코드').AsString));





First;



while Eof = False do

begin

DBCombo1.Items.Add(Trim(FieldByName('대분류명').AsString));

Next;

end;



EXCEPT

messageDlg('조회에러',mtInformation,[mbYes],0);

exit;



end;

end;