;
帖子
3919 
精华
积分
11710 
鱼币
0 ¥ 
来自
大连 
在线时间
1858 小时 
注册时间
2007-6-11 
最后登录
2009-10-20 

贴图大师勋章新人进步勋章宣传大使勋章论坛元老勋章

3
发表于 2009-1-5 19:48 | 只看该作者
涓涓疄鐢ㄧ殑Delphi灞忓箷鎷疯礉绋嬪簭鐨勮璁 - 缂栫▼搴 - Powered by SupeSite

浣犵殑浣嶇疆锛缂栫▼搴 >> 璧勮 >> Delphi >> 绋嬪簭搴旂敤 >> 璇︾粏鍐呭 鍦ㄧ嚎鎶曠ǹ

涓涓疄鐢ㄧ殑Delphi灞忓箷鎷疯礉绋嬪簭鐨勮璁

鍙戝竷: 2008-6-26 20:33 |  浣滆: admin |   鏌ョ湅: 32娆

width="84%">涓涓疄鐢ㄧ殑Delphi灞忓箷鎷疯礉绋嬪簭鐨勮璁

瀹佹尝甯傛父娌冲贩璐惧鏉

----Borland鍏徃锛堢幇鏀瑰悕涓篒NPRISE鍏徃锛夌殑DELPHI鏄綋鍓嶆渶涓烘柟渚跨殑Windows绋嬪簭璁

璁″伐鍏蜂箣涓銆傝澶氫汉浠ヤ负DELPHI鏄綔涓烘暟鎹簱寮鍙戝伐鍏峰嚭鐜扮殑锛屽叾瀹炵敤DELPHI

鍙互浠ユ瀬蹇殑閫熷害寮鍙戝嚭楂樻晥鐨刉indows绋嬪簭銆

----鐜板湪鎴戜滑灏辩敤DELPHI鏉ョ紪鍐欎竴涓疄鐢ㄧ殑灞忓箷鎷疯礉绋嬪簭銆傜灖鐬э紝涓嬮潰鐨勭敾闈㈠氨鏄墍缂栫▼搴忚繍琛屽悗杩涜鍖哄煙灞忓箷鎷疯礉鐨勪緥瀛愶紝杩樹笉閿欏惂锛

----Borland鍏徃鐨勫ぉ鎵嶈璁″笀浠敤鐢诲竷锛圱canvas锛夊璞″皝瑁呬簡Windows鐨勫ぇ閮ㄥ垎鍥惧舰

杈撳嚭鍔熻兘锛岃繖浣垮緱鎴戜滑鍙互閫氳繃浠栦互鏇寸洿瑙傜殑鏂瑰紡鍜學indows鐨勫睆骞曟墦浜ら亾锛岃屼笉蹇呭叧蹇冧护浜哄ご鐤肩殑WindowsAPI鍑芥暟銆備笅闈㈢殑涓灏忔绋嬪簭灏卞彲浠ュ疄鐜版暣涓

灞忓箷鐨勫浘璞℃嫹璐濅簡銆

var//鍙橀噺澹版槑

Fullscreen:Tbitmap;

FullscreenCanvas:TCanvas;

dc:HDC;

//------------------------------------------------------------

DC:=GetDC(0);//鍙栧緱灞忓箷鐨凞C锛屽弬鏁0鎸囩殑鏄睆骞

FullscreenCanvas:=TCanvas.Create;//鍒涘缓涓涓狢ANVAS瀵硅薄

FullscreenCanvas.Handle:=DC;//灏嗗睆骞曠殑DC璧嬬粰HANDLE

Fullscreen.Canvas.CopyRect

(Rect(0,0,screen.Width,screen.Height),

fullscreenCanvas,

Rect(0,0,Screen.Width,Screen.Height));

//鎶婃暣涓睆骞曞鍒跺埌BITMAP涓

FullscreenCanvas.Free;//閲婃斁CANVAS瀵硅薄

ReleaseDC(0,DC);//閲婃斁DC

//SCREEN瀵硅薄鏄疍ELPHI棰勫厛瀹氫箟鐨勫睆骞曞璞★紝鐩存帴浣跨敤灏辫浜嗐

----鐪嬩簡浠ヤ笂浠g爜锛屼綘灏变細鍙戠幇鐢―ELPHI鍐欏睆骞曟嫹璐濈▼搴忕殑纭緢绠鍗曘

----褰撶劧瑕佸啓涓涓疄鐢ㄧ殑灞忓箷鎷疯礉绋嬪簭锛屽厜闈犱笂杩颁唬鐮佹槸涓嶅鐨勶紝涓嬮潰璁蹭竴涓嬩富瑕佺殑缂栫▼鎬濊矾锛

----1.鍏ㄥ睆骞曟嫹璐濈殑瀹炵幇

----棣栧厛闅愯棌鎷峰睆绋嬪簭锛屽欢闀夸竴瀹氭椂闂村悗锛屽埄鐢ㄤ笂杩扮殑绋嬪簭鍗冲彲瀹炵幇灞忓箷鐨

鎷疯礉銆

----2.鍖哄煙鎷疯礉鐨勫疄鐜

----瑕佸疄鐜板尯鍩熸嫹璐濊鐢ㄤ釜灏忔妧宸э紝棣栧厛璋冪敤鍏ㄥ睆骞曟嫹璐濈▼搴忔妸鏁翠釜灞忓箷鎷

璐濅笅鏉ワ紝鐒跺悗鎶婃嫹璐濅笅鏉ョ殑鍥捐薄鏄剧ず鍦ㄥ睆骞曚笂锛屼箣鍚庡氨鍙互璁╃敤鎴峰湪涓婇潰

閫夋嫨闇瑕佺殑鍖哄煙锛屾渶鍚庢墠灏嗙敤鎴烽夊畾鐨勫尯鍩熷鍒朵笅鏉ャ

----缂栫▼瀹炵幇锛

----1.棣栧厛鐢―ELPHI3寮涓涓伐绋嬨

----2.鍦‵ORM涓婃斁缃竴涓猅PANEL鍏冧欢锛岃缃瓵LIGN=ALTOP锛屽啀閫夐儴浠舵潯ADDITIONAL涓婄殑TSCROLLBOX锛屾斁鍒癋ORM涓婏紝璁剧疆ALIGN=ALCLIENT锛岀劧鍚庡湪SCROLLBOX涓婃斁缃竴涓猅IMAGE瀵硅薄銆

----3.鍦≒ANEL涓婃斁缃4涓寜閽紝鍒嗗埆涓篎ULLSCREEN锛孯EGIN锛孲AVE锛孍XIT銆

----4.瀹规槗骞茬殑鍏堝共锛屽湪EXIT鎸夐挳鐨凜LICK浜嬩欢閲屽啓涓嬩唬鐮

procedure TForm1.ExitClick(Sender:TObject);

begin

close;

end;

----5.鎺ョ潃鏄疄鐜板叏灞忓箷鎷疯礉浜嗭紝鍦‵ROM涓婃斁缃竴涓鏃跺櫒TTIMER锛孍NABLED璁句负FALSE锛孖NTERVAL璁句负500锛屼篃灏辨槸鍗婄閽熸縺娲讳竴娆°傚弻鍑籘IMER閮ㄤ欢锛屽啓涓婂涓嬬殑浠g爜銆

procedure TForm1.Timer1Timer(Sender:TObject);

var

Fullscreen:Tbitmap;

FullscreenCanvas:TCanvas;

dc:HDC;

begin

timer1.Enabled:=false;//鍙栨秷鏃堕挓

Fullscreen:=TBitmap.Create;//鍒涘缓涓涓狟ITMAP鏉ュ瓨鏀惧浘璞

Fullscreen.Width:=screen.width;

Fullscreen.Height:=screen.Height;

DC:=GetDC(0);//鍙栧緱灞忓箷鐨凞C锛屽弬鏁0鎸囩殑鏄睆骞

FullscreenCanvas:=TCanvas.Create;//鍒涘缓涓涓狢ANVAS瀵硅薄

FullscreenCanvas.Handle:=DC;

Fullscreen.Canvas.CopyRect

(Rect(0,0,screen.Width,screen.Height),fullscreenCanvas,

Rect(0,0,Screen.Width,Screen.Height));

//鎶婃暣涓睆骞曞鍒跺埌BITMAP涓

FullscreenCanvas.Free;//閲婃斁CANVAS瀵硅薄

ReleaseDC(0,DC);//閲婃斁DC

//*******************************

image1.picture.Bitmap:=fullscreen;//鎷疯礉涓嬬殑鍥捐薄璧嬬粰IMAGE瀵硅薄

image1.Width:=fullscreen.Width;

image1.Height:=fullscreen.Height;

fullscreen.free;//閲婃斁bitmap

form1.WindowState:=wsNormal;//澶嶅師绐楀彛鐘

鎵撳嵃 | 鏀惰棌姝ら〉 |  鎺ㄨ崘缁欏ソ鍙 | 涓炬姤
涓婁竴绡 涓嬩竴绡
 

璇勫垎锛0

鍙戣〃璇勮
鏌ョ湅鍏ㄩ儴鍥炲銆愬凡鏈0浣嶇綉鍙嬪彂琛ㄤ簡鐪嬫硶銆