mydialogu.pas

《delphi深度编程及其项目开发》

unit MyDialogU;

interface

uses
  Windows, Messages, SysUtils, Classes,forms;

type
  TMyDialog = class(TComponent)
  private
  FDirectoryName : String;
    { Private declarations }
  protected
    { Protected declarations }
  public
    Function Execute : boolean;
    { Public declarations }
  published
  property DirectoryName : string read FDirectoryName write FDirectoryName;
    { Published declarations }
  end;

procedure Register;

implementation

uses MyDialogFrm;

procedure Register;
begin
  RegisterComponents('Samples', [TMyDialog]);
end;


Function TMyDialog.Execute : Boolean;
begin
  with TfrmDialog.create(Application) do
  begin
    try
      showmodal;
      result := Flag;
      If Flag then
        FDirectoryName := DirectoryListBox.Directory ;
    finally
      free;
    end;
  end;
end;
end.