procedure TForm1.Timer1Timer(Sender: TObject);
{$J+}
const
I: Integer = 0;
{$J-}
CursorCount = 3;
CursorList: array[0..CursorCount-1] of TCursor =
(crSizeAll, crSizeNESW, crSizeNS);
begin
Screen.Cursor := CursorList[I];
if I + 1 < CursorCount then
Inc(I)
else I := 0;
end;
{$J+}
const
I: Integer = 0;
{$J-}
CursorCount = 3;
CursorList: array[0..CursorCount-1] of TCursor =
(crSizeAll, crSizeNESW, crSizeNS);
begin
Screen.Cursor := CursorList[I];
if I + 1 < CursorCount then
Inc(I)
else I := 0;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货