TAction, Shortcut Probleme

[haentschman]

Danke...

Owner: TabSheet
Parent: TabSheet

Ich schlaf nochmal drüber...

Delphi-Quellcode:

function TfmMain.CreatePrintTab: TAdvOfficePage;
var
  aTab: TAdvOfficePage;
  aFrame: TfrPrint;
begin
  aTab:= TAdvOfficePage.Create(nil);
  aTab.Name := 'tabPrint';
  aTab.ImageIndex:= 131;
  aTab.Caption:= 'Druckauftrag';
  aFrame:= TfrPrint.Create(aTab, FGUI.DBFramework, FGUI.Preferences.CurrentUser);
  FinishTab(aFrame, aTab);
  Result:= aTab;
end;

Delphi-Quellcode:

procedure TfmMain.FinishTab(aFrame: TfrBase; aTab: TAdvOfficePage);
begin
  aFrame.OnClose:= DoOnCloseTab;
  aFrame.Parent:= aTab;
  aFrame.Align:= alClient;
  aFrame.Show;
  pgrMainDetails.ActivePageIndex:= pgrMainDetails.AddAdvPage(aTab);
  aTab.Show;
end;