unit22.pas

来自「试卷自动生成系统」· PAS 代码 · 共 99 行

unit Unit22;

interface

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

type
  Tautoanswerform = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    N3: TMenuItem;
    N26: TMenuItem;
    N5: TMenuItem;
    N19: TMenuItem;
    N6: TMenuItem;
    N21: TMenuItem;
    FontDialog1: TFontDialog;
    N1: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    procedure N19Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  autoanswerform: Tautoanswerform;

implementation

{$R *.dfm}

procedure Tautoanswerform.N19Click(Sender: TObject);
begin
if fontdialog1.Execute then
begin
memo1.Font:=fontdialog1.Font;
end;
end;

procedure Tautoanswerform.N2Click(Sender: TObject);
begin
Screen.Cursor:=crHourGlass;
  try
    print;
    ShowMessage('打印完毕');
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure Tautoanswerform.N26Click(Sender: TObject);
begin
close;
end;

procedure Tautoanswerform.N4Click(Sender: TObject);
begin
memo1.Undo;
end;

procedure Tautoanswerform.N7Click(Sender: TObject);
begin
memo1.CutToClipboard;
end;

procedure Tautoanswerform.N8Click(Sender: TObject);
begin
memo1.CopyToClipboard;
end;

procedure Tautoanswerform.N10Click(Sender: TObject);
begin
memo1.SelectAll;
autoanswerform.N8.Enabled:=true;
autoanswerform.N9.Enabled:=true;
end;

procedure Tautoanswerform.N9Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;

end.