【KeyPreview】问题了,问题解答后把把分加满～～～～～

2005-12-20 01:32:07 279 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

请教KeyPreview的原理！【KeyPreview】问题了,问题解答后把把分加满～～～～～
KeyPreview本是TCustomForm公开的属性：property KeyPreview: Boolean read FKeyPreview write FKeyPreview stored IsForm default False;
且只是设置FKeyPreview而已。

而TForm只是公开了这个属性而已，且在Forms单元，没找到与KeyPreview相关的代码！

那么VCl如何实现的Form的KeyPreview的？

...全文

测试dali协议的软件,DALI2.0和DALI1.0完美兼容同一个模块，测试每项可过协议 DALI2.0和DALI1.0完美兼容同一个模块，测试每项可过协议深圳聚积智能夏先生 13246760327 QQ 349098308■IEC62386-102(V2.0)通过测试内容IEC62386-102/2.1/Test preambleIEC62386-102/3.1/Polarity testIEC62386-102/3.2/Maximum and minimum system v... 阅读详情

g961681

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

g961681 2005-12-20

打赏
举报

自己还是不够细心啊～～～～～

g961681 2005-12-20

打赏
举报

呵呵，是啊！
揭帖了～～～

jinjazz 2005-12-20

打赏
举报

csdn的安全性很烂的

老之 2005-12-20

打赏
举报

顺带问一句，是不是CSDN对帐号管理做了特殊处理了啊～～～～～
我用我的小马甲问的问题，居然编程这个号问的了～

>呵呵，可能要关掉浏览器重新登陆，我用散分马甲的时候也中过一次招了。

jinjazz 2005-12-20

打赏
举报

.net和delphi的实现方法基本一致

[SecurityPermission(SecurityAction.LinkDemand, UnmanagedCode=true), SecurityPermission(SecurityAction.InheritanceDemand, UnmanagedCode=true)]
protected internal virtual bool ProcessKeyMessage(ref Message m)
{
if ((this.parent != null) && this.parent.ProcessKeyPreview(ref m))
{
return true;
}
return this.ProcessKeyEventArgs(ref m);
}

jinjazz 2005-12-20

打赏
举报

function TWinControl.DoKeyDown(var Message: TWMKey): Boolean;
var
ShiftState: TShiftState;
Form: TCustomForm;
begin
Result := True;
Form := GetParentForm(Self);
if (Form <> nil) and (Form <> Self) and Form.KeyPreview and
TWinControl(Form).DoKeyDown(Message) then Exit;
with Message do
begin
ShiftState := KeyDataToShiftState(KeyData);
if not (csNoStdEvents in ControlStyle) then
begin
KeyDown(CharCode, ShiftState);
if CharCode = 0 then Exit;
end;
end;
Result := False;
end;

g961681 2005-12-20

打赏
举报

呵呵，是啊！
是该早点删了重问的哦～～～～～

顶起来～～～～～

hellolongbin 2005-12-20

打赏
举报

根据帮助来看，如果KeyPreview属性为true的话，是Form响应按键在先，具体如何响应的正在寻找中

If KeyPreview is true, keyboard events occur on the form before they occur on the active control. (The active control is specified by the ActiveControl property.)

If KeyPreview is false, keyboard events occur only on the active control.

Navigation keys (Tab, BackTab, the arrow keys, and so on) are unaffected by KeyPreview because they do not generate keyboard events. Similarly, when a button has focus or when its Default property is true, the Enter key is unaffected by KeyPreview because it does not generate a keyboard events.

KeyPreview is false by default.

hellolongbin 2005-12-20

打赏
举报

你应该趁着没人回删了重发的，现在我来了，删不了了，哈哈！

hellolongbin 2005-12-20

打赏
举报

是楼主晕了头哦

g961681 2005-12-20

打赏
举报

顺带问一句，是不是CSDN对帐号管理做了特殊处理了啊～～～～～
我用我的小马甲问的问题，居然编程这个号问的了～

g961681 2005-12-20

打赏
举报

但其中也没对KeyPreview做任何判断的啊～～～

g961681 2005-12-20

打赏
举报

根据Call Stack中的记录
TForm1.FormKeyPress($CD17BC,'d'）－－－1
TWinControl.KeyPress('d')－－－2
TWinControl.DoKeyPress((258, 100, 0, 2097153, 0))－－－3
TWinControl.DoKeyPress((258, 100, 0, 2097153, 0))－－－4
TWinControl.WMChar((258, 100, 0, 2097153, 0))－－－5
TControl.WndProc((258, 100, 2097153, 0, 100, 0, 1, 32, 0, 0))－－－6
TWinControl.WndProc((258, 100, 2097153, 0, 100, 0, 1, 32, 0, 0))－－－7
TWinControl.MainWndProc((258, 100, 2097153, 0, 100, 0, 1, 32, 0, 0))－－－8
StdWndProc(722470,258,100,2097153)－－－9
TApplication.HandleMessage－－－10
TApplication.Run－－－11
Project1－－－12
判断，是在第6行的TControl.WndProc中，由Dispatch(Message)语句触发了第7行的TWinControl.WMChar

【KeyPreview】问题了,问题解答后把把分加满～～～～～

相关推荐