dialogbasef.pas

极具实用价值的文件管理系统

{ *********************************************************************** }
{ Unit Name: DialogBaseF                                                       
{ Purpose: DialogBaseF
{ Author: Cyclone                                                          
{ History:                                                                
{         2004-6-14 23:44:10 Create the function
{ *********************************************************************** }

unit DialogBaseF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseF, Buttons, CycSpeedButton, CycPanel, ExtCtrls, StdCtrls,
  CycLabel;

type
  TfmDialogBase = class(TfmBase)
    pnlFooter: TPanel;
    pnlFooterLine: TCycPanel;
    btnOK: TCycSpeedButton;
    btnCancel: TCycSpeedButton;
    pnlTitle: TCycPanel;
    imgIcon: TImage;
    lblTitle: TCycLabel;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  protected
    { protected declarations }
    function NormalCheck: Boolean; virtual;
  public
    { Public declarations }
  end;

var
  fmDialogBase: TfmDialogBase;

implementation

{$R *.dfm}

procedure TfmDialogBase.btnOKClick(Sender: TObject);
begin
 
  ModalResult := mrOk;
end;

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

function TfmDialogBase.NormalCheck: Boolean;
begin
  Result := True;
end;

end.