如何設置空格健開始的功能

發文回覆瀏覽次數：1095

推到 Plurk!

推到 Facebook!

答題得分者是：pceyes

diashad
一般會員

發表：20
回覆：10
積分：6
註冊：2006-08-10

發送簡訊給我

#1 引用回覆回覆

發表時間：2008-02-16 19:04:44

IP:202.173.xxx.xxx 訂閱

我在一個圖片上放有EDIT,BUTTON,現在我用有類似,任何時間按空格健就啟動BUTTON1.CLICK,再按就是BUTTON2.CLICK,
這樣的功能,我在寫一個抽獎的程式,請大家討論.
我在PRESS ANY KEY中寫不行,

------
x

pceyes
尊榮會員

發表：70
回覆：657
積分：1140
註冊：2003-03-13

發送簡訊給我

#2 引用回覆回覆

發表時間：2008-02-16 23:42:03

IP:122.127.xxx.xxx 訂閱

KeyPreview := True;
Button1.Enabled := False;
Button2.Enabled := False;
end;

FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key = Vk_Space Then Begin
If Not Button1.Enabled then Begin
Button1.Enabled := True;
End
Else If Button1.Enabled then Begin
Button1.Enabled := False;
Button2.Enabled := True;
end;
end
end;

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

編輯記錄

pceyes 重新編輯於 2008-02-16 23:44:12，註解無‧

系統時間：2024-06-26 22:51:09

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！