prt_letter.pas

来自「清华大学物理实验室 - 仪器管理系统 能实现实验室中多项数据的保存,插入,删除等」· PAS 代码 · 共 81 行

unit prt_Letter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Qrctrls, QuickRpt, ExtCtrls, Db, DBTables, StdCtrls, Buttons, Printers;

type
  Tfrm_prt_letter = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    PrintDialog1: TPrintDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_prt_letter: Tfrm_prt_letter;

implementation

uses Chind_address;

{$R *.DFM}

procedure Tfrm_prt_letter.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure Tfrm_prt_letter.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

procedure Tfrm_prt_letter.SpeedButton1Click(Sender: TObject);
begin
  if PrintDialog1.Execute then
  begin
    with Printer do
    begin
      BeginDoc;
        Panel2.PaintTo(Printer.handle,0,0);
      EndDoc;
    end;
  end;
end;

procedure MoveVcl(zVcl:TPanel);
const
  SC_DragMove = $F012;  { a magic number }
begin
  ReleaseCapture;
  zVcl.Perform(WM_SysCommand, SC_DragMove, 0);
end;

procedure Tfrm_prt_letter.Panel2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//  MoveVcl(Sender As TPanel);
end;

end.