发表于 2009-1-5 19:48
| 
闂姩鏍囬鏍
鍙戝竷: 2008-6-26 20:23 | 浣滆: admin | 鏌ョ湅: 9娆
width="84%">闂姩鏍囬鏍
鍦ㄤ綘鐨勫簲鐢ㄧ▼搴忎腑锛屼綘鍙兘浼氬笇鏈涘皢搴旂敤绋嬪簭鐨勬爣棰樻爮杩涜闂姩锛屼互鎻愰啋鐢ㄦ埛杩涜鏌愮鎿嶄綔锛屾湰鏂囦粙缁嶄簡濡備綍浣夸竴涓獥鍙ｇ殑鏍囬鏍忚繘琛岄棯鍔ㄣ
銆
闂姩鏍囬鏍
闂姩涓涓獥鍙ｇ殑鏍囬鏍忔剰鍛崇潃鏀瑰彉瀹冪殑鏍囬鏍忕殑澶栬锛屼緥濡傚畠浠庢椿鍔ㄥ彉涓轰笉娲诲姩锛屾垨鏄粠涓嶆椿鍔ㄥ彉涓烘椿鍔ㄧ瓑绛夈傚彧瑕佷綘鑳藉湪Delphi
鎴栬 C++ Builder 涓緱鍒扮獥鍙ｇ殑鍙ユ焺锛屼綘灏卞彲浠ヤ娇鐢╓indows
搴旂敤绋嬪簭缂栫▼鎺ュ彛锛圓PI锛夊嚱鏁版潵浣胯绐楀彛鐨勬爣棰樻爮杩涜闂姩銆傚嚱鏁癋lashWindows鍙互琚敤浣夸竴涓壒瀹氱殑绐楀彛闂姩涓娆°傘
鍑芥暟鍘熷舰:
function FlashWindow(const
hwnd:Integer;const bInvert:LongBool):LongBool;
璇ュ嚱鏁伴渶瑕2涓弬鏁帮紝绗竴涓弬鏁版槸瑕侀棯鍔ㄦ爣棰樻爮鐨勭獥鍙ｇ殑鍙ユ焺锛岀浜屼釜鍙傛暟鐢ㄤ簬鎸囧畾鏄缃獥鍙ｇ殑闂姩鐘舵侊紝杩樻槸鎭㈠鍏跺師濮嬬姸鎬併傚鏋滆bInvert鍙傛暟涓篢rue锛屽垯琛ㄦ槑绐楀彛鐨勬爣棰樻爮琚棯鍔紝濡傛灉璇ュ弬鏁颁负False锛屽垯琛ㄦ槑绐楀彛鐨勬爣棰樻爮琚仮澶嶄负鍘熷鐘舵併
璇ュ嚱鏁版墍杩斿洖鐨勫肩敤浜庢寚瀹氳皟鐢ㄨ鍑芥暟鍓嶇獥鍙ｇ殑鐘舵侊紝濡傛灉璇ヨ繑鍥炲糡rue锛屽垯琛ㄦ槑绐楀彛鍦ㄨ皟鐢ㄨ鍑芥暟涔嬪墠鏄椿鍔ㄧ殑锛屽惁鍒欙紝濡傛灉杩斿洖鍊间负False,鍒欒〃鏄庤皟鐢ㄥ嚱鏁板墠绐楀彛鏄潪娲诲姩鐨勩
褰撲娇鐢ㄨFlashWindow鍑芥暟鏃讹紝涓涓緝濂界殑鏂规硶鏄皢鏍囬鏍忛棯鍔ㄧ殑棰戠巼璁剧疆涓哄悓鑴卞瓧绗︼紙涔熷嵆闂姩鐨勫厜鏍囷級鐩稿悓锛岃劚瀛楃鐨勯棯鍔ㄩ鐜囧彲浠ラ氳繃璋冪敤鍑芥暟GetCaretBlinkTime鏉ヨ幏寰椼傝浣跨敤璇ュ嚱鏁帮紝闇瑕佸皢濡備笅鐨勫０鏄庤鍙ュ寘鍚湪浣犵殑绐椾綋鐨勯氱敤澹版槑閮ㄥ垎涓細
銆function GetCaretBlinkTime:Integer;
璇ュ嚱鏁拌繑鍥炵敤姣鍊艰〃绀虹殑鏃堕棿銆 渚嬬▼: 寤虹珛鏂扮殑Project,骞舵柊寤轰竴From(鍖呮嫭New
Project寤虹珛鐨凢orm,鍏变袱涓),鍦‵orm1涓姞鍏ヤ竴Button鍜孴imer,鎸変笅闈㈢殑鏂规硶寤虹珛绋嬪簭.
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form1.BringToFront;
Timer1.Interval:=GetCaretBlinkTime;
Timer1.Enabled:=Not Timer1.Enabled;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Form2.Handle,TRUE);
end;
