一、界面色彩漸變效果的實現
界面色彩漸變效果是通過用漸變的畫刷刷繪依次相鄰的矩形塊實現的。下面列舉實例說明：
1.新建一個表單,假設其Width為500，設置一個按鈕Button1，按此按鈕將把表單置為由左向右由黃變白的漸變效果。
2.Button1按鈕的代碼如下：
procedure TForm1.Button1Click(Sender: TObject)；
var i,j:Integer；
Dct:TRect；
begin
j:=Form1.height；
//獲得表單高度
for i:=0 to 255 do
//此處設置RGB()中一個顏色值
begin
Canvas.Brush.Color:=RGB(255,255,i)；
//每次畫矩形的畫刷顏色
Dct:=Rect(i＊2,0,(i＋1)＊2,j)；
//每次刷繪的矩形區域
Canvas.FillRect(Dct)；
//填充顏色
end；
end；
二、圖形整體拉出效果
單純的圖形整體拉出效果比較簡單，動態地改變圖形區域的大小就可以實現，但事先應將圖形的“Stretch”設置為“True”。
舉例說明下拉效果：
1.在表單上放置一圖片，高度為200，屬性“Height”設為0，“Stretch”設置為True。添加“Timer”構件，“Interval”設為200,“Enable”設為Ture。
2.在Timer1Timer中添加代碼：
procedure TForm1.Timer1Timer(Sender: TObject)；
begin
Image1.Height:=Image1.Height＋20；
//設置增量
if image1.Height=200 then Timer1.Enabled:=FALSE；
//圖形整體拉出完畢
end;
