紧急求助 ActionList shortcut 失效的问题。

[spring_cj]

procedure TFormMainframe.LoadFrame(className: string; caption: string);
var
curFrame : TFrame;
i : Integer;
theTabSheet : TRzTabSheet;
begin
theTabSheet := TRzTabSheet.Create(self);
theTabSheet.Caption := caption;
if GetClass(className) <> nil then
begin
curFrame := TFrameClass(Findclass(className)).Create(theTabSheet);
curFrame.Parent := theTabSheet;
curFrame.Align := alClient;
frameList.Add(curFrame);
end;
theTabSheet.PageControl := pgcWorkArea;
pgcWorkArea.ActivePageIndex := pgcWorkArea.PageCount - 1;

end;

使用这句时curFrame.Parent := theTabSheet; frame中ActionList设置的shortcut失效，如果在frame设计界面上先生成一个tabsheet（tabTemp），那么调用curFrame.Parent := tabTemp;shortcut起作用。点解？

[kongfancheng]

应该用全局键盘钩子。
你可以先在主窗体上捕获试试，记得打开KeyPreview属性。