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

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

Delphi控件源码

开发平台：

Delphi

SysForm.pas：源码内容
  1. unit SysForm;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Menus, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     MainMenu1: TMainMenu;
  13.     File1: TMenuItem;
  14.     Exit1: TMenuItem;
  15.     Edit1: TMenuItem;
  16.     Undo1: TMenuItem;
  17.     N1: TMenuItem;
  18.     Cut1: TMenuItem;
  19.     Copy1: TMenuItem;
  20.     Paste1: TMenuItem;
  21.     Help1: TMenuItem;
  22.     About1: TMenuItem;
  23.     New1: TMenuItem;
  24.     Open1: TMenuItem;
  25.     N2: TMenuItem;
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure Button1Click(Sender: TObject);
  28.     procedure New1Click(Sender: TObject);
  29.     procedure Open1Click(Sender: TObject);
  30.     procedure Exit1Click(Sender: TObject);
  31.     procedure Undo1Click(Sender: TObject);
  32.     procedure Cut1Click(Sender: TObject);
  33.     procedure Copy1Click(Sender: TObject);
  34.     procedure Paste1Click(Sender: TObject);
  35.     procedure About1Click(Sender: TObject);
  36.   private
  37.     { Private declarations }
  38.   public
  39.     procedure WMSysCommand (var Msg: TWMSysCommand);
  40.       message wm_SysCommand;
  41.   end;
  43. var
  44.   Form1: TForm1;
  46. implementation
  48. {$R *.DFM}
  50. const
  51.   idSysAbout = 100;
  53. procedure TForm1.FormCreate(Sender: TObject);
  54. begin
  55.   // add a separator and a menu item to the system menu
  56.   AppendMenu (GetSystemMenu (Handle, FALSE),
  57.     MF_SEPARATOR, 0, '');
  58.   AppendMenu (GetSystemMenu (Handle, FALSE),
  59.     MF_STRING, idSysAbout, '&About...');
  60. end;
  62. procedure TForm1.WMSysCommand (var Msg: TWMSysCommand);
  63. var
  64.   Item: TMenuItem;
  65. begin
  66.   // handle a specific command
  67.   if Msg.CmdType = idSysAbout then
  68.     ShowMessage ('Mastering Delphi: SysMenu example');
  70.   // activate standard menu handling code
  71.   Item := MainMenu1.FindItem (Msg.CmdType, fkCommand);
  72.   if Item <> nil then
  73.     Item.Click;
  75.   // default system menu commands
  76.   inherited;
  77. end;
  79. procedure TForm1.Button1Click(Sender: TObject);
  80. var
  81.   I: Integer;
  82. begin
  83.   // add a separator
  84.   AppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, '');
  85.   // add the main menu to the system menu
  86.   with MainMenu1 do
  87.     for I := 0 to Items.Count - 1 do
  88.       AppendMenu (GetSystemMenu (Self.Handle, FALSE),
  89.         mf_Popup, Items[I].Handle, PChar (Items[I].Caption));
  90.   // disable the button
  91.   Button1.Enabled := False;
  92. end;
  94. procedure TForm1.New1Click(Sender: TObject);
  95. begin
  96.   ShowMessage ('File New menu command');
  97. end;
  99. procedure TForm1.Open1Click(Sender: TObject);
  100. begin
  101.   ShowMessage ('File Open menu command');
  102. end;
  104. procedure TForm1.Exit1Click(Sender: TObject);
  105. begin
  106.   Close;
  107. end;
  109. procedure TForm1.Undo1Click(Sender: TObject);
  110. begin
  111.   ShowMessage ('Edit Undo menu command');
  112. end;
  114. procedure TForm1.Cut1Click(Sender: TObject);
  115. begin
  116.   ShowMessage ('Edit Cut menu command');
  117. end;
  119. procedure TForm1.Copy1Click(Sender: TObject);
  120. begin
  121.   ShowMessage ('Edit Copy menu command');
  122. end;
  124. procedure TForm1.Paste1Click(Sender: TObject);
  125. begin
  126.   ShowMessage ('Edit Paste menu command');
  127. end;
  129. procedure TForm1.About1Click(Sender: TObject);
  130. begin
  131.     ShowMessage ('Mastering Delphi: SysMenu example');
  132. end;
  134. end.