MenuImgF.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit MenuImgF;
- interface
- uses
- Qt, SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
- QStdCtrls, QMenus, QImgList, QTypes;
- type
- TForm1 = class(TForm)
- ImageList1: TImageList;
- MainMenu1: TMainMenu;
- File1: TMenuItem;
- New1: TMenuItem;
- Close1: TMenuItem;
- Help1: TMenuItem;
- About1: TMenuItem;
- Memo1: TMemo;
- LargeFont1: TMenuItem;
- procedure New1Click(Sender: TObject);
- procedure Close1Click(Sender: TObject);
- procedure About1Click(Sender: TObject);
- procedure LargeFont1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.xfm}
- procedure TForm1.New1Click(Sender: TObject);
- begin
- Memo1.Lines.Clear;
- end;
- procedure TForm1.Close1Click(Sender: TObject);
- begin
- Close;
- end;
- procedure TForm1.About1Click(Sender: TObject);
- begin
- ShowMessage ('Menu Images demo'#13 +
- 'from "Mastering Delphi" by Marco Cant