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

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

Delphi控件源码

开发平台：

Delphi

MenuImgF.pas：源码内容
  1. unit MenuImgF;
  3. interface
  5. uses
  6.   Qt, SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  7.   QStdCtrls, QMenus, QImgList, QTypes;
  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 *.xfm}
  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