Delphi设计形象的动态三维拼图

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

本文介绍如何使用Delphi设计形象的动态三维拼图，并举出代码实例。

作者：Sabine 来源：赛迪论坛 2007年9月14日

向窗体上添加一个TVtChart组件和一个TTimer组件，其中TVtChart组件用于显示饼图，而TTimer组件用于不停地改变饼图的数据，获得动态的效果。程序首先在uses段中加入math单元，然后在窗体的初始化过程中添加Randomize()语句，使得每次运行程序时重新产生随机数，以免同前一次运行的随机数相同。

为了产生动态的拼图，在TTimer组件的响应过程中添加以下代码：

procedure TForm1.Timer1Timer(Sender: TObject); 

begin 

　self.VtChart1.Row:=0; 

　self.VtChart1.Column:=0; 

　self.VtChart1.Data:=FloatToStr(Random(200)); 

end;

TTimer组件Interval属性设置为1000，也就是每隔1000毫秒，程序就会改变一次饼途中第1行第1列的数据。

程序代码如下：

unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes,Graphics, 
  Controls, Forms,Dialogs, OleCtrls, VCFI, ExtCtrls, math;
type
　TForm1 = class(TForm)
　VtChart1: TVtChart;
　Timer1: TTimer;
　procedure Timer1Timer(Sender: TObject);
　procedure FormCreate(Sender: TObject);
private
　{ Private declarations }
public
　{ Public declarations }
end;

var
　Form1: TForm1;
　implementation
　{$R *.dfm}
　procedure TForm1.Timer1Timer(Sender: TObject);
begin
　self.VtChart1.Row:=0;
　self.VtChart1.Column:=0;
　self.VtChart1.Data:=FloatToStr(Random(200));
end;

procedure TForm1.FormCreate(Sender: TObject);
　begin
Randomize();
　end;
end.

保存文件，然后按F9键运行程序。在程序运行过程中，拼图会不断地变化.　TVtChart组件不但可以显示拼图，还可以显示很多种三维和二维的图形，如果能够充分利用的话，会使自己的程序增色不少。

查看本文来源

Delphi设计形象的动态三维拼图

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

Delphi设计形象的动态三维拼图

业界热点: