Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
MenuImgF.pas
Package: delphi.rar　[view]
Upload User: fh681027
Upload Date: 2022-07-23
Package Size: 1959k
Code Size: 1k
Category:

Delphi VCL

Development Platform:

Delphi

MenuImgF.pas：Code Content
  1. unit MenuImgF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Menus, ImgList;
  9. type
  10.   TForm1 = class(TForm)
  11.     ImageList1: TImageList;
  12.     MainMenu1: TMainMenu;
  13.     File1: TMenuItem;
  14.     New1: TMenuItem;
  15.     Close1: TMenuItem;
  16.     Help1: TMenuItem;
  17.     About1: TMenuItem;
  18.     Memo1: TMemo;
  19.     LargeFont1: TMenuItem;
  20.     procedure New1Click(Sender: TObject);
  21.     procedure Close1Click(Sender: TObject);
  22.     procedure About1Click(Sender: TObject);
  23.     procedure LargeFont1Click(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  30. var
  31.   Form1: TForm1;
  33. implementation
  35. {$R *.DFM}
  37. procedure TForm1.New1Click(Sender: TObject);
  38. begin
  39.   Memo1.Lines.Clear;
  40. end;
  42. procedure TForm1.Close1Click(Sender: TObject);
  43. begin
  44.   Close;
  45. end;
  47. procedure TForm1.About1Click(Sender: TObject);
  48. begin
  49.   ShowMessage ('Menu Images demo'#13 +
  50.     'from "Mastering Delphi" by Marco Cant