TApplicationEvents & TCNBitBtn incompatibilities

I’m working with Delphi 7.
When use this event onShortCut of TApplicationEvents and TcnBitBtn fucused, it dont start event onShortCut.

ex. this event dont start when cnBitBtn fucused
procedure TfrmMainMenu.AppEventsShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  if      (Msg.CharCode = VK_F9) and (ssCtrl in  KeyboardStateToShiftState) then
  begin
    Handled := True;
    if FormOpenIndex('TfrmHKProduto') >= 0 then
      Screen.Forms[FormOpenIndex('TfrmHKProduto')].BringToFront
    else
      actHKProdutoExecute(Self);
  end;
end;

Why this?

obs.: I'm brazilian

tks

Thanks for your report.

After checking, it's a bug in our KeyDown processing method. It does not call "inherited" for somekey, which causing holding the shortcut.

Now this problem is fixed in our CVS. You can get it by CVS client.

Information:
[url]http://www.cnpack.org/showdetail.php?id=372&lang=en[/url]

LiuXiao, i'm brazilian, I speak portuguese and my english is so so, but dont speak chinese.
I would you help me to connect in CVS?,
I do not know to connect in CVS,

You help me connect in CVS, step by step?

thank you,

I await a response.

bye

Well, you also can get this latest CnButton.pas file on our CVSTrac's web CVS.

It's another way to access single file.      But if you want to get all latest cvs files, it's recommended use cvs client, such as WinCVS or TCVS.

[url=http://www.cnpack.org:8008/cnpack/getfile?f=cnpack/Source/Graphics/CnButtons.pas&v=1.23]http://www.cnpack.org:8008/cnpac ... tons.pas&v=1.23[/url]