[Noooob]

Помогите пожалуйста. Если

Код:

FileListBox1.Directory

присвоить значение дискеты или не подключенного виртуального диска то вылетает ошибка. Как мне сделать чтобы вместо ошибки показывалась к примеру Form2?

[poli-smen]

Сообщение от Noooob

Помогите пожалуйста. Если

Код:

FileListBox1.Directory

присвоить значение дискеты или не подключенного виртуального диска то вылетает ошибка. Как мне сделать чтобы вместо ошибки показывалась к примеру Form2?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    FileListBox1.Directory := 'a:\';
  except
    Form2.Show;
  end;
end;

[icWasya]

можно ещё так:

Код:

procedure Form1.SetDirectory(Path:String);
begin
  if  DirectoryExists(Path) then 
     FileListBox1.Directory := Path;
   else
     Form2.Show; 
end;