让鼠标在所有控件上都为漏斗形？

Question

选中所有的控件一次给cursor属性赋值，呵呵

Answer 1

Screen.Cursor := crHourGlass;

Answer 2

Screen.Cursor := crHourGlass;
可就整个窗体都变了

Answer 3

利用TAG属性，
需要变的控件的TAG设为10
for i := 0 to (ComponentCount - 1) do
  BEGIN
    if Components[i].Tag = 10 then
    TEDIT(COMPONENTS[I]).CURSOR:=CRHOURGLASS;
  END;

Answer 4

Screen.Cursor := crHourGlass;
try
  { 耗时操作 }
finally
  Screen.Cursor := crDefault;
end;

Answer 5

procedure TForm1.FormActivate(Sender: TObject);
var
i:integer;
begin
for i := 0 to (ComponentCount - 1) do
  begin
       tedit(components[i]).cursor:=crhourglass;
  end;
end;