follow.dpr

光标跟随效果

program  Follow;

{$R ..\Icon\Cool.RES}

uses
  Windows, Timer in 'Timer.pas',
  MainWindow in  'MainWindow.pas',
  HintWindow in  'HintWindow.pas';

var  
  Msg: TMsg;

begin
  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end.