Delphi使用是Shape 控件、Timer 控件和BitBtn 控件等實現動畫效果,本例中主要是結合Shape 控件生成各種圖形,利用Timer 控件的OnTimer 事件控制動畫效果產生的時間。完整代碼:
001
unit
Unit1;
002
interface
003
uses
004
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
005
ExtCtrls, StdCtrls, Buttons;
006
type
007
TForm1 =
class
(TForm)
008
Timer1: TTimer;
009
Shape1: TShape;
010
BitBtn1: TBitBtn;
011
BitBtn2: TBitBtn;
012
BitBtn3: TBitBtn;
013
procedure
Timer1Timer(Sender: TObject);
014
BitBtn1Click(Sender: TObject);
015
BitBtn2Click(Sender: TObject);
016
BitBtn3Click(Sender: TObject);
017
private
018
{ Private declarations }
019
public
020
{ Public declarations }
021
end
;
022
var
023
Form1: TForm1;
024
Start:
boolean
025
implementation
026
{$R *.DFM}
027
TForm1
.
028
begin
029
if
start
then
030
031
Randomize;
032
Form1
shape1
Brush
Color:=RGB(random(
255
),random(
));
033
034
//隨機設置畫筆模式
035
case
random(
8
)
of
036
0
:Form1
Shape1
Style:=bsSolid;
037
1
Style:=bsBdiagonal;
038
2
Style:=bsVertical;
039
3
Style:=bsFdiagonal;
040
4
Style:=bsDiagCross;
041
5
Style:=bsCross;
042
6
Style:=bsHorizontal;
043
7
Style:=bsClear;
044
045
randomize;
046
pen
047
048
Width:=random(
10
)+
049
050
//隨機設置繪圖模式
051
16
052
mode:=pmBlack;
053
mode:=pmNotxor;
054
mode:=pmXor;
055
mode:=pmNotMask;
056
mode:=pmNotMerge;
057
mode:=pmMerge;
058
mode:=pmMaskNotPen;
059
mode:=pmMaskPenNot;
060
061
9
mode:= pmMergePenNot;
062
mode:=pmMergeNotpen;
063
11
mode:=pmNotCopy;
064
12
mode:=pmCopy;
065
13
mode:=pmNot;
066
14
mode:=pmNop;
067
15
mode:=pmWhite;
068
069
070
//隨機設置繪圖風格
071
072
Pen
Style:=psSolid;
073
Style:=psDash;
074
Style:=psDot;
075
Style:=psDashDot;
076
Style:=psDashDotDot;
077
Style:=psClear;
078
Style:=psInsideFrame;
079
080
081
//設置Shape 控件的形狀,共有6 種形狀可選
082
083
shape:=stRectangle;
084
shape:=stSquare;
085
shape:=stRoundRect;
086
shape:=stRoundSquare;
087
shape:=stEllipse;
088
shape:=stCircle;
089
090
091
092
093
094
start:=
true
//圖形動畫開始
095
096
097
098
False
//圖形動畫停止
099
100
101
102
Close;
103
104
TClIEntDataSet 中計算字段有兩種: Cal
本實例介紹如何使程序不在系統任務條上出現。程序
從上個星期就開始有朋友問我為什麼很久沒有更新B
本文示例源代碼或素材下載 TWebBrowser平時用
前幾天看到 wuqiu 兄 把 QQ尾巴病毒模