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

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

Delphi控件源码

开发平台：

Delphi

MenuF.pas：源码内容
  1. unit MenuF;
  3. interface
  5. uses
  6.   SysUtils, Qt, Classes, QGraphics, QForms, QControls,
  7.   QStdCtrls, QMenus, QDialogs, QExtCtrls, QTypes;
  9. type
  10.   TFormColorText = class(TForm)
  11.     Label1: TLabel;
  12.     ColorDialog1: TColorDialog;
  13.     MainMenu1: TMainMenu;
  14.     FontDialog1: TFontDialog;
  15.     Options1: TMenuItem;
  16.     Font1: TMenuItem;
  17.     BackColor1: TMenuItem;
  18.     N1: TMenuItem;
  19.     Left1: TMenuItem;
  20.     Center1: TMenuItem;
  21.     Right1: TMenuItem;
  22.     Help1: TMenuItem;
  23.     About1: TMenuItem;
  24.     File1: TMenuItem;
  25.     Exit1: TMenuItem;
  26.     N3: TMenuItem;
  27.     DisableHelp1: TMenuItem;
  28.     procedure About1Click(Sender: TObject);
  29.     procedure Font1Click(Sender: TObject);
  30.     procedure BackColor1Click(Sender: TObject);
  31.     procedure Left1Click(Sender: TObject);
  32.     procedure Center1Click(Sender: TObject);
  33.     procedure Right1Click(Sender: TObject);
  34.     procedure Exit1Click(Sender: TObject);
  35.     procedure DisableHelp1Click(Sender: TObject);
  36.     procedure FormCreate(Sender: TObject);
  37.   public
  38.     procedure SizeItemClick(Sender: TObject);
  39.     procedure SizeClick(Sender: TObject);
  40.   end;
  42. var
  43.   FormColorText: TFormColorText;
  45. implementation
  47. {$R *.xfm}
  49. procedure TFormColorText.About1Click(Sender: TObject);
  50. begin
  51.   MessageDlg ('DynaMenu creates part of the menu at runtime'#13#13 +
  52.     'from the book "Mastering Delphi 4" by Marco Cant