答案是不能 不过可以做个类似的,把这个item的值显示到一个label上,关键是取得选择comboBoxd的item的消息,记得给分! /// 定义 cmbWnd:TWndMethod; procedure HintCmdWnd(var Message:TMessage); 实现 procedure TfrmCatSearch.PrdHintCmdWnd(var Message:Tmessage); var nSelect:integer; begin //选择item时候出发这个消息 if Message.Msg=WM_CTLCOLORLISTBOX then begin nSelect:=SendMessage(cmbProductName.Handle,CB_GETCURSEL, 0, 0); //nSelect就是item的索引 if nSelect>0 then //更具索引显示item的内容 SetMemoHint(nSelect,2); end else cmbProductWnd(Message) end; //formcreate里 cmbWnd:=CmbCatName.WindowProc; CmbCatName.WindowProc:=Self.HintCmdWnd;
不过可以做个类似的,把这个item的值显示到一个label上,关键是取得选择comboBoxd的item的消息,记得给分!
///
定义
cmbWnd:TWndMethod;
procedure HintCmdWnd(var Message:TMessage);
实现
procedure TfrmCatSearch.PrdHintCmdWnd(var Message:Tmessage);
var
nSelect:integer;
begin
//选择item时候出发这个消息
if Message.Msg=WM_CTLCOLORLISTBOX then
begin
nSelect:=SendMessage(cmbProductName.Handle,CB_GETCURSEL, 0, 0);
//nSelect就是item的索引
if nSelect>0 then
//更具索引显示item的内容
SetMemoHint(nSelect,2);
end
else
cmbProductWnd(Message)
end;
//formcreate里
cmbWnd:=CmbCatName.WindowProc;
CmbCatName.WindowProc:=Self.HintCmdWnd;
这个是什么,编译的时候别的都通过了,只有这个不通过!查HELP也查不出什么东西!是不是你自己写的过程?