untbasedialog.pas

来自「简要说明:对医院幼儿心理情况做的一个调查,统计系统.」· PAS 代码 · 共 60 行

unit untBaseDialog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untBase, StdCtrls, Buttons, ExtCtrls, ADODB, DB, jpeg, fcButton,
  fcImgBtn;

type
  TfrmBaseDialog = class(TfrmBase)
    pnlBack: TPanel;
    Panel2: TPanel;
    pnlBottom: TPanel;
    Bevel1: TBevel;
    imgImgLeft: TImage;
    imgImgRight: TImage;
    pnlPalTop: TPanel;
    imgImgTL: TImage;
    imgImgTC: TImage;
    imgImgTR: TImage;
    pnl1: TPanel;
    img1: TImage;
    img2: TImage;
    img3: TImage;
    btnCancel: TfcImageBtn;
    btnOK: TfcImageBtn;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    FTitle: string;
    { Private declarations }
  public
    { Public declarations }
    property Title: string read FTitle write FTitle;
  end;

var
  frmBaseDialog: TfrmBaseDialog;

implementation

{$R *.dfm}

{ TfrmBaseDialog }

procedure TfrmBaseDialog.btnOKClick(Sender: TObject);
begin
  inherited;
  ModalResult:=mrOK;
end;

procedure TfrmBaseDialog.btnCancelClick(Sender: TObject);
begin
  inherited;
  ModalResult:=mrCancel;
end;

end.