如何判断连续敲两次Enter 键?? |
答題得分者是:pceyes
|
BIG-ROM
初階會員 發表:94 回覆:91 積分:37 註冊:2005-04-16 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
1.設一 global 變數 num_of_enter 初值為 0
2. onkeypress 事件 <-- 我明明寫 O N K E Y P R E S S 事件, K.TOP 自己改成 forbidden if key=#13 then num_of_enter := num_of_enter 1 else begin num_of_enter := 0; end; if num_of_enter >=2 then begin num_of_enter := 0; form2.show; end; 不知是否為您所需, 謝謝
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2008-02-25 11:53:43, 註解 無‧
|
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = key := 0; num_of_enter := 0; end; if num_of_enter = 2 then begin // Show Form2 showmessage('two enter'); end; end; procedure TForm1.FormCreate(Sender: TObject); begin // set form1 keypreview num_of_enter := 0; end; end.
------
努力會更接近成功 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |