如果要连续敲两下Enter键后就Show出 Form2那要如何写?

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 (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

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.

------
努力會更接近成功