发表于 2009-1-5 19:48
| 
DELPHI涓埄鐢ㄥ璞＄殑甯哥敤灞炴у埗浣滃姩鐢
鍙戝竷: 2008-6-26 17:34 | 浣滆: admin | 鏌ョ湅: 5娆
DELPHI涓埄鐢ㄥ璞＄殑甯哥敤灞炴у埗浣滃姩鐢
鍖椾含閭數澶у绂忓缓鍒嗘牎
鏋楅
---- 鍦―ELPHI涓殑鎵鏈夊璞′腑閮芥湁鎻愪緵浜員OP銆丩EFT銆丠EIGHT銆乄IDTH鍥涗釜灞炴э紝鐢ㄤ互鎺у埗瀵硅薄鐨勪綅缃拰澶у皬锛涘彟澶栧湪DELPHI涓繕鎻愪緵浜嗕竴涓猅IME鐨勬瀯浠讹紝鍒╃敤浠栦滑鍙互鏂逛究鍦板疄鐜颁竴浜涘姩鐢汇
---- 涓锛 鎷夊箷
----
鎷夊箷寮忓嵆浠庝腑闂村線涓よ竟鎱㈡參鏄剧ず鐢婚潰銆傚湪姝ゆ妸Dbimage1鐨凜ENTER灞炴ц鎴恡rue;鎶妔tretch灞炴ц鎴恌alse銆傛妸WIDTH灞炴ц鎴0锛岄傚綋璁剧疆LEFT鐨勫硷紝浣垮叾鏄剧ず鍦ㄥ睆骞曚腑闂淬傚疄鐜板姩鐢讳富瑕佹柟娉曟槸淇敼LEFT灞炴э紙鍊奸愭笎鍙樺皬锛夊拰WIDTH灞炴э紙鍊奸愭笎鍙樺ぇ锛夛紝瑕佹敞鎰忕殑鏄负浜嗚骞曞竷浠庝腑闂村潎鍖鍦板悜涓よ竟鎷夊紑锛學IDTH鐨勬敼鍙樺煎繀椤绘槸LEFT鏀瑰彉鍊肩殑涓ゅ嶃傚湪DIMEER1鐨刼ntime浜嬩欢涓緭鍏ュ涓嬭鍙ワ細
if (dbimage1.left >0) then
begin
dbimage1.left:=dbimage1.left-1;
dbimage1.width:=DBImage1.width+2;
//dbimage1.width鐨勬敼鍙樺煎繀椤绘槸dbimage1.left鏀瑰彉鍊肩殑2鍊
end
else
timer1.enabled:=false;//鎷夊箷缁撴潫銆
---- 鎶婁笂闈㈢▼搴忎腑鐨凩EFT鏀逛负TOP锛學IDTH鏀逛负HEIGHT灏卞彲浠ュ疄鐜扮珫鐩存柟鍚戠殑鎷夊箷銆傚鏋滄妸鎷夊箷杩欑鏁堟灉杩愮敤浜庢枃鏈被鍨嬬殑瀵硅薄锛屽氨鍙互瀹炵幇涓琛屼竴琛屽湴鏄剧ず鏂囨湰鐨勬晥鏋溿
---- 浜岋紟 鎵嬮鐞
----
鍦ㄦ媺骞曞紡鐨勫姩鐢讳腑锛屽綋鐢婚潰鏁翠釜鏄剧ず鍚庯紝鍐嶆妸鐢婚潰浠庝袱杈瑰線涓棿鎱㈡參閬綇锛屽姝や笉鏂惊鐜紝璞℃媺鎵嬮鐞翠竴鏍枫傚疄鐜版椂锛岄渶鍔犲叆涓涓彉閲廠TATE锛岀敤浠ヨ〃鏄庢鏃剁殑鐘舵併傚叿浣撶▼搴忓涓嬶細
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if state=1 then
if (dbimage1.left >0) then
begin
dbimage1.left:=dbimage1.left-1;
dbimage1.width:=DBImage1.width+2;
end
else
//褰撳箷瀹屽叏鎷夊紑鍚庯紝鏀瑰彉鐘舵佸彉閲
state:=2
else
//浠庝袱杈瑰線涓棿鎷
if dbimage1.left< form1.width div 2 then
begin
dbimage1.left:=dbimage1.left+1;
dbimage1.width:=dbimage1.width-2;
end
else
//褰撳箷鍚堜笂鍚庯紝鏀瑰彉鐘舵佸彉閲
state:=1;
end;
---- 涓夛紟 鏍呮爮
