Delphi/CppBuilder

开发平台：

Delphi

MyDialogU.pas：源码内容

							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.

						