Delphi/CppBuilder

开发平台：

Delphi

MyDialogFrm.pas：源码内容

							unit MyDialogFrm;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, FileCtrl;
type
  TfrmDialog = class(TForm)
    DirectoryListBox: TDirectoryListBox;
    DriveComboBox: TDriveComboBox;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    Flag : Boolean;
    { Public declarations }
  end;
var
  frmDialog: TfrmDialog;
implementation
{$R *.dfm}
procedure TfrmDialog.btnOKClick(Sender: TObject);
begin
  Flag := True;
  close;
end;
procedure TfrmDialog.btnCancelClick(Sender: TObject);
begin
   close;
end;
procedure TfrmDialog.FormCreate(Sender: TObject);
begin
  Flag := False;
end;
end.

						