Показать сообщение отдельно
  #3  
Старый 15.12.2007, 17:58
Аватар для twix47
twix47 twix47 вне форума
Прохожий
 
Регистрация: 15.12.2007
Адрес: Киев
Сообщения: 28
Репутация: 10
По умолчанию

Что-то не помогает...

procedure TForm1.FormShow(Sender: TObject);
begin
ShowMessage(ExtractFilePath(Form1.OpenDialog1.File Name));
end;

При открытие файла сшовмеседж пуст...
Ответить с цитированием