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

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

Delphi控件源码

开发平台：

Delphi

SysForm.pas：源码内容
  1. unit sysform;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Menus, StdCtrls, AppEvnts;
  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.     ApplicationEvents1: TApplicationEvents;
  27.     procedure FormCreate(Sender: TObject);
  28.     procedure Button1Click(Sender: TObject);
  29.     procedure New1Click(Sender: TObject);
  30.     procedure Open1Click(Sender: TObject);
  31.     procedure Exit1Click(Sender: TObject);
  32.     procedure Undo1Click(Sender: TObject);
  33.     procedure Cut1Click(Sender: TObject);
  34.     procedure Copy1Click(Sender: TObject);
  35.     procedure Paste1Click(Sender: TObject);
  36.     procedure About1Click(Sender: TObject);
  37.     procedure ApplicationEvents1Message(var Msg: tagMSG;
  38.       var Handled: Boolean);
  39.   public
  40.     procedure WMSysCommand (var Msg: TWMSysCommand);
  41.       message wm_SysCommand;
  42.   end;
  44. var
  45.   Form1: TForm1;
  47. implementation
  49. {$R *.DFM}
  51. const
  52.   idSysAbout = 100;
  54. procedure TForm1.FormCreate(Sender: TObject);
  55. begin
  56.   // add a separator and a menu item to the system menu
  57.   AppendMenu (GetSystemMenu (Handle, FALSE),
  58.     MF_SEPARATOR, 0, '');
  59.   AppendMenu (GetSystemMenu (Handle, FALSE),
  60.     MF_STRING, idSysAbout, '&About...');
  62.   // add the same items to the application system menu
  63.   AppendMenu (GetSystemMenu (Application.Handle, FALSE),
  64.     MF_SEPARATOR, 0, '');
  65.   AppendMenu (GetSystemMenu (Application.Handle, FALSE),
  66.     MF_STRING, idSysAbout, '&About...');
  67. end;
  69. procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  70.   var Handled: Boolean);
  71. begin
  72.   if (Msg.Message = wm_SysCommand) and
  73.     (Msg.wParam = idSysAbout) then
  74.   begin
  75.     ShowMessage ('Mastering Delphi: SysMenu2 example');
  76.     Handled := True;
  77.   end;
  78. end;
  80. procedure TForm1.WMSysCommand (var Msg: TWMSysCommand);
  81. var
  82.   Item: TMenuItem;
  83. begin
  84.   // handle a specific command
  85.   if Msg.CmdType = idSysAbout then
  86.     ShowMessage ('Mastering Delphi: SysMenu2 example');
  88.   // activate standard menu handling code
  89.   Item := MainMenu1.FindItem (Msg.CmdType, fkCommand);
  90.   if not (Item = nil) then
  91.     Item.Click;
  93.   // default system menu commands
  94.   inherited;
  95. end;
  97. procedure TForm1.Button1Click(Sender: TObject);
  98. var
  99.   I: Integer;
  100. begin
  101.   // add a separator
  102.   AppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, '');
  103.   // add the main menu to the system menu
  104.   with MainMenu1 do
  105.     for I := 0 to Items.Count - 1 do
  106.       AppendMenu (GetSystemMenu (Self.Handle, FALSE),
  107.         mf_Popup, Items[I].Handle, PChar (Items[I].Caption));
  108.   // disable the button
  109.   Button1.Enabled := False;
  110. end;
  112. procedure TForm1.New1Click(Sender: TObject);
  113. begin
  114.   ShowMessage ('File New menu command');
  115. end;
  117. procedure TForm1.Open1Click(Sender: TObject);
  118. begin
  119.   ShowMessage ('File Open menu command');
  120. end;
  122. procedure TForm1.Exit1Click(Sender: TObject);
  123. begin
  124.   Close;
  125. end;
  127. procedure TForm1.Undo1Click(Sender: TObject);
  128. begin
  129.   ShowMessage ('Edit Undo menu command');
  130. end;
  132. procedure TForm1.Cut1Click(Sender: TObject);
  133. begin
  134.   ShowMessage ('Edit Cut menu command');
  135. end;
  137. procedure TForm1.Copy1Click(Sender: TObject);
  138. begin
  139.   ShowMessage ('Edit Copy menu command');
  140. end;
  142. procedure TForm1.Paste1Click(Sender: TObject);
  143. begin
  144.   ShowMessage ('Edit Paste menu command');
  145. end;
  147. procedure TForm1.About1Click(Sender: TObject);
  148. begin
  149.     ShowMessage ('Mastering Delphi: SysMenu2 example');
  150. end;
  152. end.