关于钩子函数的权限(100分)

  • 主题发起人 主题发起人 szwgl
  • 开始时间 开始时间
S

szwgl

Unregistered / Unconfirmed
GUEST, unregistred user!
我再一个单元里(unit)写了一个钩子函数如下:<br>&nbsp; &nbsp;if msg.message=wm_messageHYDM then<br>&nbsp; &nbsp;begin<br>&nbsp; &nbsp; &nbsp; with frmqyba &nbsp;do<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; showmessage('insert data');<br>&nbsp; &nbsp; // &nbsp; &nbsp;edtqydm.Text:='wgk';<br>&nbsp; &nbsp;// &nbsp; &nbsp; edtQydm.Text:=frmUseHydm.Table1.fieldbyname('TRAD_CODE').asstring;<br>&nbsp; &nbsp; &nbsp; &nbsp; edtHymc.Text:=frmuseHydm.Table1.FieldByName('TRAD_NAME').asstring;<br>&nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp;end<br>&nbsp; &nbsp;else<br>&nbsp; &nbsp; &nbsp;result:=CallNextHookEx(hydmHook,Code,wParam,longint(@Msg));<br><br><br>//解释,frmuseHydmz实此钩子函数所在的单元对应的FORM,edtqydm是他上面<br>的一个编辑筐,我跟踪了一下,好像是此时edtqydm不是可访问的<br>谢谢各位
 
&nbsp;可以访问,但是跟踪钩子最好用别的办法,比如设置一个 Label , 在钩子函数体中加入调试<br>代码,比如: Label1.Caption := EdtQydm.Text 等等。
 
谢谢,baKubaKu<br>这个问题我自己已经解决,就是创建form时<br>用application.createform<br>而不是用frmName.create(self)<br>请问斑竹,我可以为自己加分吗,我不想全给别人<br><br><br><br>&nbsp;<br><br>
 
多人接受答案了。
 
后退
顶部