學習 Message(15): 讓窗體同時響應鍵盤事件的方法

　KeyPrevIEw := True; 即可, 它默認是 False; 這對一些快捷鍵會有用.

　　測試代碼:

unit　Unit1;

interface

uses
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,
　Dialogs,　StdCtrls;

type
　TForm1　=　class(TForm)
　　Memo1:　TMemo;
　　procedure　FormCreate(Sender:　TObject);
　　procedure　FormKeyDown(Sender:　TObject;　var　Key:　Word;　Shift:　TShiftState);
　　procedure　Memo1KeyDown(Sender:　TObject;　var　Key:　Word;　Shift:　TShiftState);
　end;

var
　Form1:　TForm1;

implementation

{$R　*.dfm}

procedure　TForm1.FormCreate(Sender:　TObject);
begin
　Memo1.Align　:=　alLeft;
　Memo1.ScrollBars　:=　ssBoth;
　Memo1.Clear;

　KeyPrevIEw　:=　True;
end;

procedure　TForm1.FormKeyDown(Sender:　TObject;　var　Key:　Word;
　Shift:　TShiftState);
begin
　Memo1.Lines.Add('窗體響應的　KeyDown　事件');
end;

procedure　TForm1.Memo1KeyDown(Sender:　TObject;　var　Key:　Word;
　Shift:　TShiftState);
begin
　Memo1.Lines.Add('Memo1　響應的　KeyDown　事件');
end;

end.

　　窗體文件:

object　Form1:　TForm1
　Left　=　0
　Top　=　0
　Caption　=　'Form1'
　ClIEntHeight　=　145
　ClIEntWidth　=　264
　Color　=　clBtnFace
　Font.Charset　=　DEFAULT_CHARSET
　Font.Color　=　clWindowText
　Font.Height　=　-11
　Font.Name　=　'Tahoma'
　Font.Style　=　[]
　OldCreateOrder　=　False
　OnCreate　=　FormCreate
　OnKeyDown　=　FormKeyDown
　PixelsPerInch　=　96
　TextHeight　=　13
　object　Memo1:　TMemo
　　Left　=　8
　　Top　=　8
　　Width　=　185
　　Height　=　89
　　Lines.Strings　=　(
　　　'Memo1')
　　TabOrder　=　0
　　OnKeyDown　=　Memo1KeyDown
　end
end