TComboBox下拉取值

　2006-02-04 13:53:55　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姇閹碱偆鐥閺屾洘绻濊箛鏇犵獥闂佺厧澹婃禍婊堚€旈崘顏佸亾閿濆骸澧ù鐘欏嫮绠鹃柛顐ゅ枎閻忋儲銇勯弴妯哄姦妞ゃ垺鐟╅幃鈩冩償閵囧府鎷�

核心提示： 新建一个类，存储我们需要的数据：TItemEx=class(TObject)public caption:string; StringValue:string;end;//使用adoquery中的值填充comboboxfunction FillInComBoBoxWithAdoQuery(objAdoQuery:

新建一个类，存储我们需要的数据：

TItemEx=class(TObject)

public

　　 caption:string;
　　 StringValue:string;
end;

//使用adoquery中的值填充combobox
function FillInComBoBoxWithAdoQuery(objAdoQuery:TAdoQuery;objComBoBox:TComboBox;sql:string;captionFieldName:string;
　　valueFieldName:string;noAsFirst:boolean):boolean;

//当noAsFirst为true是，combobox的第一项是'无'
var
objItemEx:TItemEx;
begin
objComBoBox.Clear;
objComBoBox.ItemIndex:=-1;
if noAsFirst
then begin
　　 objItemEx:=TItemEx.Create;
　　 objItemEx.caption:='无';
　　 objItemEx.StringValue:='';
　　 objComBoBox.Items.AddObject(objItemEx.caption,objItemEx);
　　 objComBoBox.ItemIndex:=0;
end;
objAdoQuery.Close;
objAdoQuery.SQL.Clear;
objAdoQuery.SQL.Add(sql);
objAdoQuery.Open;
objAdoQuery.First;
while not objAdoQuery.Eof do
begin
　 objItemEx:=TItemEx.Create;
　 objItemEx.caption:=objAdoQuery.FieldByName(captionFieldName).AsString;
　 objItemEx.StringValue:=objAdoQuery.FieldByName(valueFieldName).AsString;
　 objComBoBox.Items.AddObject(objItemEx.caption,objItemEx);
　 objAdoQuery.Next;
end;
objAdoQuery.close;
result:=true;
end;

//取得comboobx中被选定向的制
function GetComBoBoxSelectedStringValue(objComBoBox:TComboBox):string;
var
objItemEx:TItemEx;
begin
if (objComBoBox.ItemIndex>-1 )
then begin
　　　 objItemEx:=(objComBoBox.Items.Objects[objComBoBox.ItemIndex] as TItemEx);
　　　 result:=objItemEx.StringValue;
end
else begin
　　　 result:='';
end;
end;

listbox的解决方法与此类似。