圖形整體拉出效果

單純的圖形整體拉出效果比較簡單,動態地改變圖形區域的大小就可以實現,但事先應將圖形的“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;