为什么我的窗体不能跳舞呢? |
|
答題得分者是：ANDY8C
|
|
mp394681143
一般會員   發表：64 回覆：40 積分：20 註冊：2009-10-11 發送簡訊給我 |
例子:
 我的代碼是超書上的! [code delphi] procedure TForm1.Button1Click(Sender: TObject); var i:integer; mm:integer; begin for i:=0 to 10 do begin repeat until gettickcount()>mm 100; flashwindow(form1.handle,true); end; flashwindow(form1.handle,false); end; [/code] 編輯記錄
|
|
老大仔
尊榮會員  發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
跳舞!!??應該不是吧...
您有爬過文了嗎?? 有找過flashwindow這個是做什麼用的嗎?? 會看不到效果 "可能"是因為執行太快了 所以看不到 請把for和repeat 迴圈拿掉 ===================引 用 mp394681143 文 章=================== 例子: 我的代碼是超書上的! [code delphi] procedure TForm1.Button1Click(Sender: TObject); var i:integer; mm:integer; begin ?for i:=0 to 10 do ?begin ?repeat until gettickcount()>mm 100; ?flashwindow(form1.handle,true); ?end; ?flashwindow(form1.handle,false); end; [/code] |
|
ANDY8C
資深會員  發表：114 回覆：582 積分：299 註冊：2006-10-29 發送簡訊給我 |
迴圈的速度太快了,關鍵在於延遲時間, 有內容更新 加 application.ProcessMessages; 較易成功. [code delphi] procedure TForm1.Button1Click(Sender: TObject); var i:integer; mm,waittime:integer; begin waittime := 700; for i:=0 to 4 do begin flashwindow(form1.handle,true); button1.Caption := ' TEST < . . > ' inttostr(i) ' ' ; panel1.Color := clYellow ; panel1.Font.Size := 40; panel1.Font.Color := clred; panel1.Caption := '●'; application.ProcessMessages; sleep( waittime ); // repeat until gettickcount()>mm 100; flashwindow(form1.handle,false); button1.Caption := ' TEST < @ @ >' inttostr(i) ' ' ; panel1.Color := clFuchsia; panel1.Font.Size := 40; panel1.Font.Color := clblue; panel1.Caption := '●'; application.ProcessMessages; sleep( waittime ); end; end; [/code]
------
--------------------------------------- 偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩. |
|
mp394681143
一般會員 發表：64 回覆：40 積分：20 註冊：2009-10-11 發送簡訊給我 |
發表時間：2009-12-31 06:09:55
IP:61.136.xxx.xxx 訂閱
系統時間：2024-04-25 18:28:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |