S
szwgl
Unregistered / Unconfirmed
GUEST, unregistred user!
我再一个单元里(unit)写了一个钩子函数如下:<br> if msg.message=wm_messageHYDM then<br> begin<br> with frmqyba do<br> begin<br> showmessage('insert data');<br> // edtqydm.Text:='wgk';<br> // edtQydm.Text:=frmUseHydm.Table1.fieldbyname('TRAD_CODE').asstring;<br> edtHymc.Text:=frmuseHydm.Table1.FieldByName('TRAD_NAME').asstring;<br> end;<br> end<br> else<br> result:=CallNextHookEx(hydmHook,Code,wParam,longint(@Msg));<br><br><br>//解释,frmuseHydmz实此钩子函数所在的单元对应的FORM,edtqydm是他上面<br>的一个编辑筐,我跟踪了一下,好像是此时edtqydm不是可访问的<br>谢谢各位