可以结贴了。
在标准风格窗体的以下事件中,可以获取到,再进行赋值,这个事件不管打开,还是切换,都能获取到当前的功能。
procedure TFuncContainer.RequestAlign;
begin
inherited;
if Visible and (Func <> nil) and not Func.Terminated and
(Func.MainForm <> nil) and
(Func.MainForm.Parent = Self) and not Func.MainForm.Visible then
Func.MainForm.Show;
//显示功能ID
if Visible and (Func <> nil) and not Func.Terminated and (Func.MainForm <> nil) then
begin
JsDialogs.ShowMsg(Func.ID,'');
JsDialogs.ShowMsg(Func.DisplayName,'');
end;