当COMBOBOX弹出下拉框时,
提取鼠标所在的ITEM的内容
在单击右键之前

解决方案 »

  1.   

    用鼠标点中某一个item之后,这个item就显示在框中,这是要得到这个值可以这样:combobox.text就可以得到这个值,至于想要右键,加个PopupMenu了
      

  2.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      ComboBox1.Style:=csOwnerDrawFixed;
    end;procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    begin
      if odSelected in State then
        begin
          ComboBox1.Canvas.Brush.Color:=clHighlight;
          ComboBox1.Canvas.Font.Color:=clHighlightText;
          Label1.Caption:=ComboBox1.Items[index];
        end
      else
        begin
          ComboBox1.Canvas.Brush.Color:=clWindow;
          ComboBox1.Canvas.Font.Color:=clWindowText;
        end;
      ComboBox1.Canvas.TextRect(rect,rect.left+1,rect.top+1,ComboBox1.Items[index]);
    end;
      

  3.   

    在选择之前,把ComboBox1.Text存到某个变量里去就是了
      

  4.   

    在COMBOBOX的下拉框中,有些ITEM的内容可能会超出COMBOBOX的宽度
    我想当鼠标移到这些ITEM时以HINT的形式显示它的内容,以便可看到其全部内容
    那位同志有较好的方法???????????