在这句话后使用关闭语句关闭这个对话框试试看?

解决方案 »

  1.   

    是你自己弹出的对话框还是程序出错的对话框?若是前者,把所有的调用都查一查
    若是后者,就是你错误了两次都未处理
      

  2.   

    关注,我的也是。procedure TForm1.DriveComboBox1Change(Sender: TObject);begin
    maindrive:=drivecombobox1.Drive ;
    showmessage(maindrive);
    end;当改变盘符时,会出现两次对话框。