Category

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

Delphi VCL

Development Platform:

Delphi

MenuF.pas：Code Content
  1. unit MenuF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Classes, Graphics, Forms, Controls,
  7.   StdCtrls, Menus, Dialogs, ExtCtrls;
  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 *.DFM}
  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