【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“AbortFrm.pas”一文,供大家参考学习!
unit AbortFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Printers,Buttons;
type
TAbortForm = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AbortForm: TAbortForm;
implementation
{$R *.dfm}
procedure TAbortForm.BitBtn1Click(Sender: TObject);
begin
Printer.Abort;
Close;
end;
end.
上一篇:
FMPOSAF3.frm
下一篇:
基于消费者社会化视角的儿童消费者影响因素研究