End;

  SendMessage(Hand,LVM_SetItemPosition,h,

MakeLparam(DesktopWidth-Rec*(I+1),Rec*(j-1));

End; //  for 循环结束；

End;

6、  在按钮的单击事件中加入代码：

procedure TForm1.Button1Click(Sender: TObject);

begin

  SetTextColor(clBlack,crNone); // 设置图标文字颜色；

  Circle(200);  // 把图标排列成半径为200的圆；

  // AlignRight(77)； // 右对齐；

end;

编译运行，单击按钮。哇塞！太棒了！你还可发挥你的想象力，对程序稍加改进，把图标排成蛇形、椭圆形、环形等等。以上程序在 Win98+Delphi5下运行通过。

上一页  [1] [2]