Category

Development Platform
Home > SourceCode/Document > Applications > Education soft system > View Code
Unit22.pas
Package: 毕业设计(带论文)—试卷生成系统.rar　[view]
Upload User: szyozho
Upload Date: 2013-04-13
Package Size: 3688k
Code Size: 2k
Category:

Education soft system

Development Platform:

Delphi

Unit22.pas：Code Content
  1. unit Unit22;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Menus, StdCtrls;
  9. type
  10.   Tautoanswerform = class(TForm)
  11.     Memo1: TMemo;
  12.     MainMenu1: TMainMenu;
  13.     N3: TMenuItem;
  14.     N26: TMenuItem;
  15.     N5: TMenuItem;
  16.     N19: TMenuItem;
  17.     N6: TMenuItem;
  18.     N21: TMenuItem;
  19.     FontDialog1: TFontDialog;
  20.     N1: TMenuItem;
  21.     N4: TMenuItem;
  22.     N7: TMenuItem;
  23.     N8: TMenuItem;
  24.     N9: TMenuItem;
  25.     N10: TMenuItem;
  26.     procedure N19Click(Sender: TObject);
  27.     procedure N2Click(Sender: TObject);
  28.     procedure N26Click(Sender: TObject);
  29.     procedure N4Click(Sender: TObject);
  30.     procedure N7Click(Sender: TObject);
  31.     procedure N8Click(Sender: TObject);
  32.     procedure N10Click(Sender: TObject);
  33.     procedure N9Click(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  40. var
  41.   autoanswerform: Tautoanswerform;
  43. implementation
  45. {$R *.dfm}
  47. procedure Tautoanswerform.N19Click(Sender: TObject);
  48. begin
  49. if fontdialog1.Execute then
  50. begin
  51. memo1.Font:=fontdialog1.Font;
  52. end;
  53. end;
  55. procedure Tautoanswerform.N2Click(Sender: TObject);
  56. begin
  57. Screen.Cursor:=crHourGlass;
  58.   try
  59.     print;
  60.     ShowMessage('打印完毕');
  61.   finally
  62.     Screen.Cursor:=crDefault;
  63.   end;
  64. end;
  66. procedure Tautoanswerform.N26Click(Sender: TObject);
  67. begin
  68. close;
  69. end;
  71. procedure Tautoanswerform.N4Click(Sender: TObject);
  72. begin
  73. memo1.Undo;
  74. end;
  76. procedure Tautoanswerform.N7Click(Sender: TObject);
  77. begin
  78. memo1.CutToClipboard;
  79. end;
  81. procedure Tautoanswerform.N8Click(Sender: TObject);
  82. begin
  83. memo1.CopyToClipboard;
  84. end;
  86. procedure Tautoanswerform.N10Click(Sender: TObject);
  87. begin
  88. memo1.SelectAll;
  89. autoanswerform.N8.Enabled:=true;
  90. autoanswerform.N9.Enabled:=true;
  91. end;
  93. procedure Tautoanswerform.N9Click(Sender: TObject);
  94. begin
  95. Memo1.PasteFromClipboard;
  96. end;
  98. end.