線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1792
推到 Plurk!
推到 Facebook!

請問......

尚未結案
Tak
一般會員


發表:17
回覆:18
積分:7
註冊:2003-01-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-03-01 22:14:15 IP:218.102.xxx.xxx 未訂閱
========Delphi6======== 請問可以做到按鍵無效嗎?
ddy
站務副站長


發表:262
回覆:2105
積分:1169
註冊:2002-07-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-03-01 23:01:55 IP:211.74.xxx.xxx 未訂閱
讓輸入沒有回應 例:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    key:=#0;
end;
發表人 - ddy 於 2003/03/01 23:03:19
Tak
一般會員


發表:17
回覆:18
積分:7
註冊:2003-01-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-03-02 18:08:15 IP:219.76.xxx.xxx 未訂閱
我的意思是...... 例如: 1.按PrintScreen無效 2.按Alt+F4無效 等等 可以做到嗎
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-03-02 18:18:30 IP:202.39.xxx.xxx 未訂閱
Alt F4 部份參考: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25634
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-03-02 18:22:03 IP:202.39.xxx.xxx 未訂閱
Print Screen 鍵部份參考: http://bdn.borland.com/article/0,1410,16719,00.html 轉貼如下: Question: How can I globally trap the Windows system key "PrintScreen"?     Answer: The following example demonstrates registering a hot key  with the system to globally trap the windows printscreen key.    Example:
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;
   
var
  Form1: TForm1;
   
implementation
   
{$R *.DFM}
   
const id_SnapShot = 101;
   
procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
  if Msg.HotKey = id_SnapShot then
    ShowMessage('GotIt');
end;
   
procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Form1.Handle,
                 id_SnapShot,
                 0,
                 VK_SNAPSHOT);
end;
   
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey (Form1.Handle, id_SnapShot);
end;
ddy
站務副站長


發表:262
回覆:2105
積分:1169
註冊:2002-07-13

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-03-02 18:45:50 IP:61.59.xxx.xxx 未訂閱
引言: ========Delphi6======== 請問可以做到按鍵無效嗎?
Tak兄 一、發問問題也是要『說清楚,講明白』以免造成無謂的誤會 二、你也許是在寫遊戲程式時遇到此問題,但此問題放在其它討論區會更合適,例:『Object Pascal物件導向討論區』 三、發問的主題,毫無意義,請詳讀本站使用規定http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19264 若有冒犯請見諒大家共同為 > < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">
Tak
一般會員


發表:17
回覆:18
積分:7
註冊:2003-01-17

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-03-03 19:56:03 IP:218.102.xxx.xxx 未訂閱
明白 明白
系統時間:2017-10-22 23:29:35
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!