论坛风格切换切换到宽版
  • 1661阅读
  • 3回复

请教老虎版主关于 Can't cast an object 问题? [复制链接]

上一主题 下一主题
离线546242502
 

发帖
332
金钱
-3060
威望
-306
只看楼主 倒序阅读 0 发表于: 2015-08-16
用户被禁言,该主题自动屏蔽!
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2015-08-16
[Code]
procedure SetControlCursor(control: TWinControl; cursor: TCursor);
var n: Integer;
wc: TWinControl;
begin
  if (not (control = nil)) then begin
    control.Cursor := cursor;
    try
      for n:=0 to control.ControlCount-1 do
      begin
       if control.Controls[n] is TWinControl then
         begin
         wc := TWinControl(control.Controls[n]);
         if (NOT(wc = nil)) then
           SetControlCursor(wc, cursor)
         else
           control.Controls[n].Cursor := cursor;
         end;
      end; {for}
    finally
    end;{try}
  end;{if}
end;{procedure SetControlCursor}

procedure InitializeWizard;
begin
  SetControlCursor(WizardForm, crHourGlass);
end;
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 2 发表于: 2015-08-16
但是看不出意义何在,为什么要把鼠标光标改成一样。
离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 3 发表于: 2015-08-17
用户被禁言,该主题自动屏蔽!