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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
SDIMAIN.PAS
资源名称：xiaobai.rar　[点击查看]
上传用户：autowell
上传日期：2022-06-21
资源大小：16754k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

SDIMAIN.PAS：源码内容
  1. unit SDIMAIN;
  3. interface
  5. uses Windows, Classes, Graphics, Forms, Controls, Menus,
  6.   Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
  7.   ActnList, ToolWin;
  9. type
  10.   TSDIAppForm = class(TForm)
  11.     OpenDialog: TOpenDialog;
  12.     SaveDialog: TSaveDialog;
  13.     ToolBar1: TToolBar;
  14.     ToolButton9: TToolButton;
  15.     ToolButton1: TToolButton;
  16.     ToolButton2: TToolButton;
  17.     ToolButton3: TToolButton;
  18.     ToolButton4: TToolButton;
  19.     ToolButton5: TToolButton;
  20.     ToolButton6: TToolButton;
  21.     ActionList1: TActionList;
  22.     FileNew1: TAction;
  23.     FileOpen1: TAction;
  24.     FileSave1: TAction;
  25.     FileSaveAs1: TAction;
  26.     FileExit1: TAction;
  27.     EditCut1: TEditCut;
  28.     EditCopy1: TEditCopy;
  29.     EditPaste1: TEditPaste;
  30.     HelpAbout1: TAction;
  31.     StatusBar: TStatusBar;
  32.     ImageList1: TImageList;
  33.     MainMenu1: TMainMenu;
  34.     File1: TMenuItem;
  35.     FileNewItem: TMenuItem;
  36.     FileOpenItem: TMenuItem;
  37.     FileSaveItem: TMenuItem;
  38.     FileSaveAsItem: TMenuItem;
  39.     N1: TMenuItem;
  40.     FileExitItem: TMenuItem;
  41.     Edit1: TMenuItem;
  42.     CutItem: TMenuItem;
  43.     CopyItem: TMenuItem;
  44.     PasteItem: TMenuItem;
  45.     Help1: TMenuItem;
  46.     HelpAboutItem: TMenuItem;
  47.     procedure FileNew1Execute(Sender: TObject);
  48.     procedure FileOpen1Execute(Sender: TObject);
  49.     procedure FileSave1Execute(Sender: TObject);
  50.     procedure FileExit1Execute(Sender: TObject);
  51.     procedure HelpAbout1Execute(Sender: TObject);
  52.   private
  53.     { Private declarations }
  54.   public
  55.     { Public declarations }
  56.   end;
  58. var
  59.   SDIAppForm: TSDIAppForm;
  61. implementation
  63. uses about;
  65. {$R *.dfm}
  67. procedure TSDIAppForm.FileNew1Execute(Sender: TObject);
  68. begin
  69.   { Do nothing }
  70. end;
  72. procedure TSDIAppForm.FileOpen1Execute(Sender: TObject);
  73. begin
  74.   OpenDialog.Execute;
  75. end;
  77. procedure TSDIAppForm.FileSave1Execute(Sender: TObject);
  78. begin
  79.   SaveDialog.Execute;
  80. end;
  82. procedure TSDIAppForm.FileExit1Execute(Sender: TObject);
  83. begin
  84.   Close;
  85. end;
  87. procedure TSDIAppForm.HelpAbout1Execute(Sender: TObject);
  88. begin
  89.   AboutBox.ShowModal;
  90. end;
  92. end.