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

[烟波三千里人鬼五百年]

想做个http://www.euromind.com/iedelphi/ie5tools/bandobjects.htm
delphiband的Vertical band。
再BandForm上放一个EDIT控件，却发现不能正常输入中文.....5555555~~~~
各位老大可又解决之道？

[copypaste2]

明天吧。。。睡觉了。:)

[日总是我哥]

[bewill]

喂，楼上，没想到在这里遇见子你，一个人整天说我是你的马夹，我们俩哪里相像啦?!!!!

[copypaste2]

哈哈。

[sysu]

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;