combobox的问题找进销存库存设计

仓库管理软件版1楼: combobox的onclick为什么不能响应？？

2楼: 你用MOUSE点击选择或键盘箭头选择都会有向应的,除非你其它地方把消息截了. 如速达

3楼: 273482488我做了一个小的发给你
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
application.MessageBox(＇＇点击成功＇＇,＇＇提示＇＇,64)
end;

4楼: 你们的可以响应吗？我的一直不能用，？？？？？？？？

5楼: 可能我的问题，太简单了，不过你们可以试一下，然后，在给我说一下好吗？

6楼: OnClick事件是响应combobox下拉列表的点击事件。
除非消息被截获了，不然一定可以响应的。
楼主把代码贴出来看看。

仓库管理软件版7楼: 没有具体的代码？
主要是combobox中没有内容（包括下拉框），这时我点击，鼠标，需要combobox来响应我的动作，但是，combobox好象没有动作，把combobox的style所有属性都试过了还是不行？？

8楼: 这是正常的。
OnClick事件是响应combobox下拉列表的点击事件，如果下拉列表为空，则不能响应OnClick事件。

9楼: 呵呵！如何，我想让combobox在我点击是更改他自己的属性，如何操作呢？

例如：我在初始化是显示combobox的style属性是：cssimple,在点击鼠标是显示下拉的属性：csdropdown,怎么办呢？

10楼: 用OnEnter事件。

11楼: 能说的详细一点吗,最好是有代码显示，我不太清楚你的意思

12楼: procedure TfrmTest.ComboBox1Enter(Sender: TObject);
begin
if not (ComboBox1.Style = csDropDown) then ComboBox1.Style := csDropDown;
end; 如设备维修管理软件

13楼: 我的意思是想让他响应用户的操作，并不是让他自动转换啊

仓库管理软件版14楼: procedure TfrmTest.ComboBox1Enter(Sender: TObject);
begin
// 何谓响应操作，把用户的操作代码写在这不就是响应了吗？
end;

15楼: procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
combobox1.Style := csDropDown;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
combobox1.Style := csSimple;
end;

16楼: 越来越糊涂了。
楼主还是把你想要实现的效果或结果说明白一点吧。

17楼: 不好意思，可能是我的问题没有给大家说的清楚一点，我在把我的意思和想要实现的功能给大家说一下。

1，我现在要用一个Combobox,来实现用户自己根据Combobox提供的内容来选择，同时也可以自己来填写。
2，但是在提供给用户的Combobox不能是csdropdown的显示样式，而应该是CsSimple的样式，
3，但是，当用户单击鼠标和通过键盘，让combobox得到焦点后就把CsSimple的属性改变为CsDropDown，用户可以根据下来内容选择。
4,当combobox失去焦点后重新恢复为CsSimple属性，来显示需要显示的内容。
5,同时，根据用户的输入的内容，按enter键后，自动寻找该内容的快截内容.

18楼: 内容5的解释：
例如,快截主键，内容
1 中华人民共和国
/ 俄罗斯共和国
. 美国
2 英国
.... ....
快截键是用户自己定义的，内容是用户需要输入的，用户只要输入快截的内容，按enter 后就可以转换为响应的需要输入的内容.

19楼: 1、2、3、4的问题用就用 hinco 兄的方法；
第5个问题用 Combobox 的 OnKeyPress 事件
procedure TfrmTest.ComboBox1KeyPress(Sender: TObject; var Key: Char);
var
iIndex: Integer;
begin
if Key = #13 then
begin
iIndex := StrToIntDef(ComboBox1.Text,-1);
if (iIndex >= -1) and (iIndex < ComboBox1.Items.Count) then