請教各位前輩...小弟有二個問題想要請教大家...^^ 一是ComboBox的下拉方式可否改成像ListBox的Scroll方式來選擇值? 二是ListBox可否在其空白處以鍵盤輸入值的方式,而不只有以點選的方式選擇? 希望各位前輩能夠不吝指導...謝謝!!

看了你的问题，我想你是需要一个可项单行LISTBOX形式又可以输入的功能吧~    你的要求用COMBOBOX还是比较容易实现的，就是用COMBOBOX+UpDown控件实现，将COMBOBOX的STYLE属性设定为csSimple，在放好UpDown控件的位置即可。    在UpDown控件中控制COMBOBOX的ItemIndex以实现滚动控制，COMBOBOX还可以进行输入操作，可以达到你的要求。    写了一个短短的UpDown控制ComboBox1滚动的代码，您可以参考一下：    

procedure TForm1.UpDown1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   //为了使点击UpDown时滚动与LISTBOX一致，所以要进行一些处理。
  ComboBox1.ItemIndex := UpDown1.Max - UpDown1.Position;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  //初始化UpDown控件
  UpDown1.Min := 0;
  UpDown1.Max := ComboBox1.Items.Count-1;
  UpDown1.Position := UpDown1.Max;
end;

發表人 - vicen 於 2005/09/28 14:40:33

再次感謝Vicen前輩的大力指導...^^ 原來還有這種方式可替代使用丫.....真的不可以死腦筯的寫程式...哈^^ 這種方式很好用又符合我的需求...真是謝謝啦!!