IE的BandObject中文输入BUG....

烟波三千里人鬼五百年 2003-03-06 01:36:28
想做个http://www.euromind.com/iedelphi/ie5tools/bandobjects.htm
delphiband的Vertical band。
再BandForm上放一个EDIT控件,却发现不能正常输入中文.....5555555~~~~
各位老大可又解决之道?
...全文
11 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sysu 2003-03-06
1. 改用RichEdit就没问题了。
或者
2. 修改_DelphiBand.pas的TranslateAcceleratorIO函数,改为:
function TDelphiBand.TranslateAcceleratorIO(var lpMsg: TMsg): HResult;
// Passes keyboard accelerators to the object.
begin
// 只处理常用的编辑键,其它都不处理
if lpMsg.wParam in [VK_BACK, VK_DELETE, VK_LEFT, VK_RIGHT,
VK_UP, VK_DOWN, VK_HOME, VK_END]
then begin
TranslateMessage(lpMSg);
DispatchMessage(lpMsg);
Result := S_OK;
end
else Result := S_FALSE;

// if (lpMsg.WParam <> VK_TAB) then begin
// TranslateMessage(lpMSg);
// DispatchMessage(lpMsg);
// Result := S_OK;
// end
// else Result := S_FALSE;
end;
  • 打赏
  • 举报
回复
copypaste2 2003-03-06
哈哈。
  • 打赏
  • 举报
回复
bewill 2003-03-06
喂,楼上,没想到在这里遇见子你,一个人整天说我是你的马夹,我们俩哪里相像啦?!!!!




  • 打赏
  • 举报
回复
日总是我哥 2003-03-06
  • 打赏
  • 举报
回复
copypaste2 2003-03-06
明天吧。。。睡觉了。:)
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi

5124

社区成员

Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
帖子事件
创建了帖子
2003-03-06 01:36
社区公告
暂无公告