TB2Merge, Version 0.3 (alt)
Hinweis: dies ist nicht die neueste Version!
Datei: child1.pas
unit child1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TB2Item, ImgList, TB2Dock, TB2Toolbar, ExtCtrls; type TfrmMDIChild1 = class(TForm) TBDock1: TTBDock; tbChildMenuBar: TTBToolbar; TBImageList1: TTBImageList; TBSubmenuItem1: TTBSubmenuItem; TBItem1: TTBItem; TBItem2: TTBItem; TBItem3: TTBItem; TBSeparatorItem1: TTBSeparatorItem; TBItem4: TTBItem; TBItem5: TTBItem; TBItem6: TTBItem; TBItem7: TTBItem; Panel1: TPanel; procedure TBItemClick(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDeactivate(Sender: TObject); procedure FormActivate(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var frmMDIChild1: TfrmMDIChild1; implementation uses Menus, TB2Merge, main; {$R *.dfm} var Counter: Integer = 0; procedure TfrmMDIChild1.FormCreate(Sender: TObject); begin Counter := Counter + 1; Caption := 'Kind ROT ' + IntToStr(Counter); Panel1.Caption := Caption; TBImageList1.BkColor := BlendColor(tbChildMenuBar.Color, Panel1.Font.Color, 20); TBFixImageList(tbChildMenuBar.Items, tbChildMenuBar.Images); end; procedure TfrmMDIChild1.FormActivate(Sender: TObject); begin ToolbarMerger.Merge(frmMDIParent.tbMainMenuBar, tbChildMenuBar, []); end; procedure TfrmMDIChild1.FormDeactivate(Sender: TObject); begin ToolbarMerger.Unmerge(frmMDIParent.tbMainMenuBar, tbChildMenuBar); end; procedure TfrmMDIChild1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TfrmMDIChild1.FormDestroy(Sender: TObject); begin ToolbarMerger.UnmergeAll(tbChildMenuBar); end; procedure TfrmMDIChild1.TBItemClick(Sender: TObject); begin if Sender is TTBItem then MessageDlg(Caption + ': ' + StripHotkey(TTBItem(Sender).Caption), mtInformation, [mbOk], 0); end; end. |