pickrep.pas

Delphi利用MVC开发的典型例子

unit Pickrep;

interface

uses Windows, Classes, Graphics, Forms, Controls, Buttons,
  StdCtrls, ExtCtrls;

type
  TPickRpt = class(TForm)
    OKBtn: TButton;
    CloseBtn: TButton;
    ViewBtn: TButton;
    ReportType: TRadioGroup;
    procedure OKBtnClick(Sender: TObject);
    procedure ViewBtnClick(Sender: TObject);
  public  
    Preview : Boolean;
  end;

var
  PickRpt: TPickRpt;

implementation

{$R *.DFM}

procedure TPickRpt.OKBtnClick(Sender: TObject);
begin
  Preview := False;
end;

procedure TPickRpt.ViewBtnClick(Sender: TObject);
begin
  Preview := True;
end;

end.