help.~pas

来自「商品管理系统是面向超市类的商品数据库管理系统。其主要功能包括用户购买商品」· ~PAS 代码 · 共 69 行

unit help;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Menus, ExtCtrls;

type
  TForm11 = class(TForm)
    RichEdit1: TRichEdit;
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    P1: TMenuItem;
    E1: TMenuItem;
    E2: TMenuItem;
    Z1: TMenuItem;
    PrintDialog1: TPrintDialog;
    FontDialog1: TFontDialog;
    C1: TMenuItem;
    ColorDialog1: TColorDialog;
    procedure FontDialog1Apply(Sender: TObject; Wnd: HWND);
    procedure Z1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.DFM}

procedure TForm11.FontDialog1Apply(Sender: TObject; Wnd: HWND);
begin
   richedit1.font:=fontdialog1.font;
end;

procedure TForm11.Z1Click(Sender: TObject);
begin
  fontdialog1.font:=richedit1.font;
   if fontdialog1.Execute then
      richedit1.Font:=fontdialog1.font;

end;

procedure TForm11.C1Click(Sender: TObject);
begin
  if colordialog1.execute then
    richedit1.Color:=colordialog1.color;
end;
procedure TForm11.P1Click(Sender: TObject);
begin
  printdialog1.Execute; 
end;

procedure TForm11.E1Click(Sender: TObject);
begin
  form11.close;
end;

end.