5,392
社区成员
发帖
与我相关
我的任务
分享dll里面的窗体创建调用释放关闭都没有问题，但是就是Tab键没有用了？！
谢谢
顺便问一声大家在开发的时候那么多的窗体都是怎样处理的，我的意思是都写在同一个exe里面吗？！晴推荐一种方法
顺便问一声大家在开发的时候那么多的窗体都是怎样处理的，我的意思是都写在同一个exe里面吗？！晴推荐一种方法
...全文
请发表友善的回复…
发表回复
seawavefj 2003-07-09
- 打赏
- 举报
帮你up一下
司码君 2003-07-09
- 打赏
- 举报
自己up
司码君 2003-07-09
- 打赏
- 举报
散分
pingwzh 2003-07-09
- 打赏
- 举报
给我点分
lii39611 2003-07-09
- 打赏
- 举报
up
luntan888 2003-07-09
- 打赏
- 举报
忘了告诉你了，SubForm为Dll里面返回的子窗体
luntan888 2003-07-09
- 打赏
- 举报
procedure ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
begin
//处理TAB键
if (Msg.message = wm_KeyDown) and (Msg.wParam = VK_TAB) then
begin
Handled := True;
if GetKeyState(VK_SHIFT) < 0 then
SubForm.Perform(WM_NEXTDLGCTL, 1, 0) //上一个
else
SubForm.Perform(WM_NEXTDLGCTL, 0, 0); //下一个
end;
end;
使用方法：
在调用Dll的窗体的FormCreate事件里面
Application.OnMessage := ApplicationMessage;
begin
//处理TAB键
if (Msg.message = wm_KeyDown) and (Msg.wParam = VK_TAB) then
begin
Handled := True;
if GetKeyState(VK_SHIFT) < 0 then
SubForm.Perform(WM_NEXTDLGCTL, 1, 0) //上一个
else
SubForm.Perform(WM_NEXTDLGCTL, 0, 0); //下一个
end;
end;
使用方法：
在调用Dll的窗体的FormCreate事件里面
Application.OnMessage := ApplicationMessage;
司码君 2003-07-08
- 打赏
- 举报
Tab要怎么解决
李_军 2003-07-08
- 打赏
- 举报
Tab在dll不能用是经常碰到的
窗体多，做成Mdi了，sdi在dll中的模式
窗体多，做成Mdi了，sdi在dll中的模式
司码君 2003-07-08
- 打赏
- 举报
up
