开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Main.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

Main.pas：源码内容
  1. unit Main;
  3. interface
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  6.   StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls,
  7.   ToolWin, fcClearPanel, fcButtonGroup, fcButton,
  8.   fcShapeBtn, fcImgBtn, fcImager, fcLabel
  9.   {$ifndef ver100}
  10.   , ImgList
  11.   {$endif};
  13. type
  14.   TMainMdiForm = class(TForm)
  15.     MainMenu1: TMainMenu;
  16.     File1: TMenuItem;
  17.     FileNewItem: TMenuItem;
  18.     FileCloseItem: TMenuItem;
  19.     Window1: TMenuItem;
  20.     N1: TMenuItem;
  21.     FileExitItem: TMenuItem;
  22.     WindowCascadeItem: TMenuItem;
  23.     WindowTileItem: TMenuItem;
  24.     OpenDialog: TOpenDialog;
  25.     StatusBar: TStatusBar;
  26.     ToolBar2: TToolBar;
  27.     ToolButton3: TToolButton;
  28.     ToolButton9: TToolButton;
  29.     ToolButton8: TToolButton;
  30.     ToolButton10: TToolButton;
  31.     ImageList1: TImageList;
  32.     fcButtonGroup1: TfcButtonGroup;
  33.     procedure FileNew1Execute(Sender: TObject);
  34.     procedure FileOpen1Execute(Sender: TObject);
  35.     procedure FileExit1Execute(Sender: TObject);
  36.     procedure fcButtonGroup1Change(ButtonGroup: TfcCustomButtonGroup;
  37.       OldSelected, Selected: TfcButtonGroupItem);
  38.     procedure FormActivate(Sender: TObject);
  39.     procedure WindowTileItemClick(Sender: TObject);
  40.     procedure WindowCascadeItemClick(Sender: TObject);
  41.     procedure FileCloseItemClick(Sender: TObject);
  42.   private
  43.     { Private declarations }
  44.     procedure CreateMDIChild(const Name: string);
  45.     procedure SetMDIChildCaption(Child: TCustomForm; Name: string);
  46.   public
  47.     { Public declarations }
  48.   end;
  50. var
  51.   MainMdiForm: TMainMdiForm;
  53. implementation
  55. {$R *.DFM}
  57. uses ChildWin;
  59. procedure TMainMdiForm.SetMDIChildCaption(Child: TCustomForm; Name: string);
  60. begin
  61.   Child.Caption := Name;
  62.   TfcShapeBtn(fcButtonGroup1.ButtonItems.FindPointerTag(Child).Button).Caption := Name;
  63. end;
  65. procedure TMainMdiForm.CreateMDIChild(const Name: string);
  66. var
  67.   Child: TMDIChild;
  68. begin
  69.   { create a new MDI child window }
  70.   Child := TMDIChild.Create(Application);
  71.   SetMDIChildCaption(Child, Name);
  72. end;
  74. procedure TMainMdiForm.FileNew1Execute(Sender: TObject);
  75. begin
  76.   CreateMDIChild('FORM' + IntToStr(MDIChildCount + 1));
  77. end;
  79. procedure TMainMdiForm.FileOpen1Execute(Sender: TObject);
  80. begin
  81.   if OpenDialog.Execute then
  82.     CreateMDIChild(OpenDialog.FileName);
  83. end;
  85. procedure TMainMdiForm.FileExit1Execute(Sender: TObject);
  86. begin
  87.   Close;
  88. end;
  90. procedure TMainMdiForm.fcButtonGroup1Change(
  91.   ButtonGroup: TfcCustomButtonGroup; OldSelected,
  92.   Selected: TfcButtonGroupItem);
  93. begin
  94.   TCustomForm(Selected.PointerTag).Show;
  95. end;
  97. procedure TMainMdiForm.FormActivate(Sender: TObject);
  98. begin
  99.   FileNew1Execute(Sender);
  100. end;
  102. procedure TMainMdiForm.WindowTileItemClick(Sender: TObject);
  103. begin
  104.   Tile;
  105. end;
  107. procedure TMainMdiForm.WindowCascadeItemClick(Sender: TObject);
  108. begin
  109.   Cascade;
  110. end;
  112. procedure TMainMdiForm.FileCloseItemClick(Sender: TObject);
  113. begin
  114.   if ActiveMDIChild <> nil then ActiveMDIChild.Close;
  115. end;
  117. end.