Delphi實現動態圖像並實現圖形移動

Delphi實現動態圖像並實現圖形移動，可以控制圓、橢圓、正方形、長方形和圓角方形等圖形的移動操作，用戶選擇指定圖形後，便可執行移動操作，可選擇移動速度：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 05 ExtCtrls, StdCtrls, Buttons; 06 type 07 TForm1 = class(TForm) 08 Timer1: TTimer; 09 ListBox1: TListBox; 10 ComboBox1: TComboBox; 11 Panel1: TPanel; 12 circle: TShape; 13 ellipse: TShape; 14 square: TShape; 15 rect: TShape; 16 Label1: TLabel; 17 Label2: TLabel; 18 RSquare: TShape; 19 start: TBitBtn; 20 stop: TBitBtn; 21 exit: TBitBtn; 22 procedure Timer1Timer(Sender: TObject); 23 procedure startClick(Sender: TObject); 24 procedure stopClick(Sender: TObject); 25 procedure exitClick(Sender: TObject); 26 private 27 { Private declarations } 28 public 29 { Public declarations } 30 end; 31 var 32 Form1: TForm1; 33 implementation 34 {$R *.DFM} 35 procedure TForm1.Timer1Timer(Sender: TObject);//圖形隨時間變化而移動 36 begin 37 //選擇正方形時，相應的圖形開始移動 38 if listbox1.selected[0]then 39 square.left:=(square.left+2)mod panel1.Width; 40 //選擇長方形時，相應的圖形開始移動 41 if listbox1.selected[1]then 42 rect.left:=(rect.left+2)mod panel1.Width; 43 //選擇圓時，相應的圖形開始移動 44 if listbox1.selected[2]then 45 circle.left:=(circle.left+2)mod panel1.Width; 46 //選擇橢圓時，相應的圖形開始移動 47 if listbox1.selected[3]then 48 ellipse.left:=(ellipse.left+2)mod panel1.Width; 49 //選擇圓角方形時，相應的圖形開始移動 50 if listbox1.selected[4]then 51 RSquare.left:=(RSquare.left+2)mod panel1.Width; 52 end; 53 procedure TForm1.startClick(Sender: TObject);//選擇不同的速度，定時器響應的時間間隔不同 54 begin 55 //選擇速度為慢時 56 if ComboBox1.Text=’慢’ then 57 Timer1.interval:=100 58 //選擇速度為快時 59 else if ComboBox1.Text=’快’ then 60 Timer1.interval:=5 61 //選擇速度為中時 62 else 63 Timer1.interval:=25; 64 //定時器開始工作 65 Timer1.Enabled:=true; 66 end; 67 procedure TForm1.stopClick(Sender: TObject); 68 begin 69 //定時器停止工作，圖形停止移動 70 Timer1.Enabled:=False; 71 end; 72 procedure TForm1.exitClick(Sender: TObject); 73 begin 74 close;//關閉窗體，退出程序 75 end; 76 end.