MenuF.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:4k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit MenuF;
- interface
- uses
- SysUtils, Windows, Classes, Graphics, Forms, Controls,
- StdCtrls, Menus, Dialogs, ExtCtrls;
- type
- TFormColorText = class(TForm)
- Label1: TLabel;
- ColorDialog1: TColorDialog;
- MainMenu1: TMainMenu;
- FontDialog1: TFontDialog;
- Options1: TMenuItem;
- Font1: TMenuItem;
- BackColor1: TMenuItem;
- N1: TMenuItem;
- Left1: TMenuItem;
- Center1: TMenuItem;
- Right1: TMenuItem;
- Help1: TMenuItem;
- About1: TMenuItem;
- File1: TMenuItem;
- Exit1: TMenuItem;
- N3: TMenuItem;
- DisableHelp1: TMenuItem;
- procedure About1Click(Sender: TObject);
- procedure Font1Click(Sender: TObject);
- procedure BackColor1Click(Sender: TObject);
- procedure Left1Click(Sender: TObject);
- procedure Center1Click(Sender: TObject);
- procedure Right1Click(Sender: TObject);
- procedure Exit1Click(Sender: TObject);
- procedure DisableHelp1Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- public
- procedure SizeItemClick(Sender: TObject);
- procedure SizeClick(Sender: TObject);
- end;
- var
- FormColorText: TFormColorText;
- implementation
- {$R *.DFM}
- procedure TFormColorText.About1Click(Sender: TObject);
- begin
- MessageDlg ('DynaMenu creates part of the menu at runtime'#13#13 +
- 'from the book "Mastering Delphi 4" by Marco Cant