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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > 按钮控件 > 查看源码
MAIN.PAS
资源名称：winskin.rar　[点击查看]
上传用户：lmk588
上传日期：2013-04-16
资源大小：5120k
文件大小：3k
源码类别：

按钮控件

开发平台：

Delphi

MAIN.PAS：源码内容
  1. unit MAIN;
  3. interface
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  6.   StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  7.   ActnList, ToolWin, ImgList, WinSkinData;
  9. type
  10.   TMainForm = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     File1: TMenuItem;
  13.     FileNewItem: TMenuItem;
  14.     FileOpenItem: TMenuItem;
  15.     FileCloseItem: TMenuItem;
  16.     Window1: TMenuItem;
  17.     Help1: TMenuItem;
  18.     N1: TMenuItem;
  19.     FileExitItem: TMenuItem;
  20.     WindowCascadeItem: TMenuItem;
  21.     WindowTileItem: TMenuItem;
  22.     WindowArrangeItem: TMenuItem;
  23.     HelpAboutItem: TMenuItem;
  24.     OpenDialog: TOpenDialog;
  25.     FileSaveItem: TMenuItem;
  26.     FileSaveAsItem: TMenuItem;
  27.     Edit1: TMenuItem;
  28.     CutItem: TMenuItem;
  29.     CopyItem: TMenuItem;
  30.     PasteItem: TMenuItem;
  31.     WindowMinimizeItem: TMenuItem;
  32.     StatusBar: TStatusBar;
  33.     ActionList1: TActionList;
  34.     EditCut1: TEditCut;
  35.     EditCopy1: TEditCopy;
  36.     EditPaste1: TEditPaste;
  37.     FileNew1: TAction;
  38.     FileSave1: TAction;
  39.     FileExit1: TAction;
  40.     FileOpen1: TAction;
  41.     FileSaveAs1: TAction;
  42.     WindowCascade1: TWindowCascade;
  43.     WindowTileHorizontal1: TWindowTileHorizontal;
  44.     WindowArrangeAll1: TWindowArrange;
  45.     WindowMinimizeAll1: TWindowMinimizeAll;
  46.     HelpAbout1: TAction;
  47.     FileClose1: TWindowClose;
  48.     WindowTileVertical1: TWindowTileVertical;
  49.     WindowTileItem2: TMenuItem;
  50.     ToolBar2: TToolBar;
  51.     ToolButton1: TToolButton;
  52.     ToolButton2: TToolButton;
  53.     ToolButton3: TToolButton;
  54.     ToolButton4: TToolButton;
  55.     ToolButton5: TToolButton;
  56.     ToolButton6: TToolButton;
  57.     ToolButton9: TToolButton;
  58.     ToolButton7: TToolButton;
  59.     ToolButton8: TToolButton;
  60.     ToolButton10: TToolButton;
  61.     ToolButton11: TToolButton;
  62.     ImageList1: TImageList;
  63.     SkinData1: TSkinData;
  64.     Option1: TMenuItem;
  65.     order11: TMenuItem;
  66.     order12: TMenuItem;
  67.     procedure FileNew1Execute(Sender: TObject);
  68.     procedure FileOpen1Execute(Sender: TObject);
  69.     procedure HelpAbout1Execute(Sender: TObject);
  70.     procedure FileExit1Execute(Sender: TObject);
  71.   private
  72.     { Private declarations }
  73.     procedure CreateMDIChild(const Name: string);
  74.   public
  75.     { Public declarations }
  76.   end;
  78. var
  79.   MainForm: TMainForm;
  81. implementation
  83. {$R *.dfm}
  85. uses CHILDWIN, about;
  87. procedure TMainForm.CreateMDIChild(const Name: string);
  88. var
  89.   Child: TMDIChild;
  90. begin
  91.   { create a new MDI child window }
  92.   Child := TMDIChild.Create(Application);
  93.   Child.Caption := Name;
  94.   if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
  95. //  skindata1.UpdateMainMenu(true);
  96. end;
  98. procedure TMainForm.FileNew1Execute(Sender: TObject);
  99. begin
  100.   CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
  101. end;
  103. procedure TMainForm.FileOpen1Execute(Sender: TObject);
  104. begin
  105.   if OpenDialog.Execute then
  106.     CreateMDIChild(OpenDialog.FileName);
  107. end;
  109. procedure TMainForm.HelpAbout1Execute(Sender: TObject);
  110. begin
  111.   AboutBox.ShowModal;
  112. end;
  114. procedure TMainForm.FileExit1Execute(Sender: TObject);
  115. begin
  116.   Close;
  117. end;
  119. end.