pntstp.pas

delphi框架可以学习, 写的很好的

unit PntStp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrlsEh, DBLookupEh, Buttons, ExtCtrls, DB,
  DBClient, ComCtrls, ActnList;

type
  TfrmPntStp = class(TForm)
    Label1: TLabel;
    PDBLookupCombobox1: TDBLookupComboboxEh;
    BtnProperty: TBitBtn;
    BtnOK: TBitBtn;
    BtnCancel: TBitBtn;
    Bevel1: TBevel;
    cdsPntType: TClientDataSet;
    dsPntType: TDataSource;
    ActionList1: TActionList;
    doClose: TAction;
    procedure BtnPropertyClick(Sender: TObject);
    procedure doCloseExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPntStp: TfrmPntStp;

implementation
uses dm32, dmc32;
{$R *.dfm}

procedure TfrmPntStp.BtnPropertyClick(Sender: TObject);
begin
  with TPrinterSetupDialog.Create(Self) do
  try
    Execute;
  finally
    Free;
  end;
end;

procedure TfrmPntStp.doCloseExecute(Sender: TObject);
begin
  close;
end;

end.