为何不显示鼠标动画

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Cursor:=crSQLWait;
end;当鼠标动画时移到ListView上不显示动画。不要listview.Cursor这样的，因为它没有意义。如何解决。

Answer 1

不太明白你的意思：创建窗体就设置Cursor，之后如果不恢复，就一直是SqlWait形状的Cursor，你可以在做长时间运算或者查询时设置。
try
  Cursor:=crSQLWait;
  //Search Data
finally
  Cursor:=crDefault;
end;

Answer 2

因为移动到listview上就会改变为listview的鼠标形状

Answer 3

有點不明白你的意思，如果你想鼠標移動到listview上不要顯示動畫,就把listview控件的Cursor屬性設置成crDefault或其它就可以了。

Answer 4

窗体的动画是crSQLWait，但你把鼠标放在ListView上面鼠标动画不见。我想让它继续有鼠标动画。明白我意思吗？

Answer 5

窗体上只有ListView。窗体创建时会有crSQLWait动画。你看看上面代码。我想解决的是动画保持还是存在因为鼠标移动到listview上面就消失动画了。