========Delphi6======== 請問可以做到按鍵無效嗎?

讓輸入沒有回應 例：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    key:=#0;
end;

發表人 - ddy 於 2003/03/01 23:03:19

我的意思是...... 例如: 1.按PrintScreen無效 2.按Alt+F4無效 等等 可以做到嗎

Alt F4 部份參考: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25634

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;

引言: ========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">

明白 明白