cHeRsAnYa1, у меня всё нормально: procedure TForm1.Button1Click(Sender: TObject); //Обработчик события var OD: TOpenDialog;// Диалог begin OD:= TOpenDialog.Create(Self); // Создание If OD.Execute Then // Если диалог открыт и файл выбран, то... begin //Выполняем... end; end;
25 мар 2008 в 13:16