B
bbsnet
Unregistered / Unconfirmed
GUEST, unregistred user!
MDI窗口怎样才执行KeyDown键盘响应？
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview:=True;
FormStyle:=fsMDIForm; // 加了这一行下面FormKeyDown事件不会响应，如何解决？
end;
// 我做的系统是MDI模式呀。
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage(IntToStr(Key));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview:=True;
FormStyle:=fsMDIForm; // 加了这一行下面FormKeyDown事件不会响应，如何解决？
end;
// 我做的系统是MDI模式呀。
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage(IntToStr(Key));
end;