开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 教育系统应用 > 查看源码
Unit19.pas
资源名称：毕业设计(带论文)—试卷生成系统.rar　[点击查看]
上传用户：szyozho
上传日期：2013-04-13
资源大小：3688k
文件大小：3k
源码类别：

教育系统应用

开发平台：

Delphi

Unit19.pas：源码内容
  1. unit Unit19;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Menus, StdCtrls;
  9. type
  10.   Tmadeanswerform = 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 N24Click(Sender: TObject);
  28.     procedure N26Click(Sender: TObject);
  29.     procedure N2Click(Sender: TObject);
  30.     procedure N4Click(Sender: TObject);
  31.     procedure N7Click(Sender: TObject);
  32.     procedure N8Click(Sender: TObject);
  33.     procedure N9Click(Sender: TObject);
  34.     procedure N10Click(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  41. var
  42.   madeanswerform: Tmadeanswerform;
  43.     fname:string;
  44. implementation
  45.    uses printers;
  46. {$R *.dfm}
  48. procedure Tmadeanswerform.N19Click(Sender: TObject);
  49. begin
  50. if fontdialog1.Execute then
  51. begin
  52. memo1.Font:=fontdialog1.Font;
  53. end;
  54. end;
  56. procedure Tmadeanswerform.N24Click(Sender: TObject);
  57. //var
  58. //filename:string;
  59. begin
  60. //savedialog1.Title:='保存生成后的试卷';
  61. //savedialog1.FileName:=fname;
  62. //if savedialog1.Execute then
  63.   // begin
  64.   // filename:=savedialog1.FileName;
  65.   // memo1.Lines.SaveToFile(filename+'.doc');
  66.  //  end;
  67. end;
  69. procedure Tmadeanswerform.N26Click(Sender: TObject);
  70. begin
  71.  close;
  72. end;
  74. procedure Tmadeanswerform.N2Click(Sender: TObject);
  75. //var lines :integer;
  76.  //   prntext:system.text;
  77. begin
  79. Screen.Cursor:=crHourGlass;
  80.   try
  81.     print;
  82.     ShowMessage('打印完毕');
  83.   finally
  84.     Screen.Cursor:=crDefault;
  85.   end;
  86.       {
  87.     if printdialog1.Execute then
  88.     assignprn(prntext);
  89.     rewrite(prntext);
  90.     printer.canvas.Font:=memo1.font;
  91.     for lines:=0 to memo1.Lines.Count-1 do
  92.     begin
  93.     writeln(prntext,memo1.lines[lines]);
  94.     system.Close(prntext);
  95.     end; }
  96. end;
  98. procedure Tmadeanswerform.N4Click(Sender: TObject);
  99. begin
  100. memo1.Undo;
  101. end;
  103. procedure Tmadeanswerform.N7Click(Sender: TObject);
  104. begin
  105. memo1.CutToClipboard;
  106. end;
  108. procedure Tmadeanswerform.N8Click(Sender: TObject);
  109. begin
  110. memo1.CopyToClipboard;
  111. end;
  113. procedure Tmadeanswerform.N9Click(Sender: TObject);
  114. begin
  115. Memo1.PasteFromClipboard;
  116. end;
  118. procedure Tmadeanswerform.N10Click(Sender: TObject);
  119. begin
  120. memo1.SelectAll;
  121. madeanswerform.N8.Enabled:=true;
  122. madeanswerform.N9.Enabled:=true;
  123. end;
  125. end.