送分！！！如何实现鼠标的隐藏和显示？

Question

好象是mouse.hide,或者cursor.hide，忘记了，如果要显示恢复就是show，你写写看了

Answer 1

例子：
1、隐藏：  Form1.Cursor :=  crNone;
2、显示：  Form1.Cursor := crDefault;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 2

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  //selectcomboboxitem(combobox1);
  combobox1.DroppedDown:=true;
end;
这样写的话那个鼠标不见了，用了上面讲的方法还是出不来啊

Answer 3

mousemove
cursor。show
button。click
cursor。hide

Answer 4

我的意思是在combobox1的onchange事件中写上combobox1.DroppedDown:=true;
这行代码的话，在combobox1中输入东西后鼠标会消失。我想把鼠标重新显示出来。就这个问题

Answer 5

这样，你在另一个事件下编写显示的代码，比如在mousemove事件下写。

Answer 6

哦，明白了，对了，告诉我combobox1.DroppedDown:=true这是设置了什么属性？对不起，不要笑话我了，我现在的机器没有delphi，我在网吧

Answer 7

没关系的，我的设想是这样的
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  selectcomboboxitem(combobox1);//过滤列表的内容，显示最接近的结果
  combobox1.DroppedDown:=true;//始终显示下拉列表
end;
但加上combobox1.DroppedDown:=true;后鼠标不见了，用尽办法都出不来啊

Answer 8

总不能用oop在拓展吧，我想象了，这样你可以遍历combobox中的item项，用for语句，遇到接近的就显示，可是接近的不一定是一条啊……为什么不用list呢？过滤列表啊，我不明白了，你的combobox的下拉列表一直打开？着有什么用啊？影响界面，

Answer 9

那你就在同一事件下最后加入cursor.show吧，恭喜你了！！你成功了，

Answer 10

……………………
formj1.cursor:=show;
Form1.Cursor := crDefault;
end；

Answer 11

ShowCursor(false); 隐藏鼠标；
ShowCursor(true);显示鼠标