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

Question

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

Answer 1

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;