handlefrm.pas

来自「一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。」· PAS 代码 · 共 75 行

unit HandleFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseFrm, ExtCtrls, StdCtrls;

type
  { 处理方式，打开文件，打开文件夹，或什么也不做 }
  THandleWay = (hwOpenFile, hwOpenFolder, hwClose);
  { 转换完成后，处理目标文件 }
  TFrmHandle = class(TFrmBase)
    Label1: TLabel;
    btnOpen: TButton;
    btnLocate: TButton;
    btnClose: TButton;
    Image1: TImage;
    procedure btnOpenClick(Sender: TObject);
    procedure btnLocateClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
    FHandleWay: THandleWay;
  public
    { Public declarations }
    (* 执行，返回处理方式 *)
    function Execute: THandleWay;
    constructor Create(AOwner: TComponent); override;
  end;

var
  FrmHandle: TFrmHandle;

implementation

{$R *.dfm}

{ TFrmHandle }

constructor TFrmHandle.Create(AOwner: TComponent);
begin
  inherited;
  FHandleWay := hwClose;
end;

function TFrmHandle.Execute: THandleWay;
begin
  ShowModal;
  Result := FHandleWay;
end;

procedure TFrmHandle.btnOpenClick(Sender: TObject);
begin
  inherited;
  FHandleWay := hwOpenFile;
  Close;
end;

procedure TFrmHandle.btnLocateClick(Sender: TObject);
begin
  inherited;
  FHandleWay := hwOpenFolder;
  Close;
end;

procedure TFrmHandle.btnCloseClick(Sender: TObject);
begin
  inherited;
  FHandleWay := hwClose;
  Close;
end;

end.