|
#1
|
||||
|
||||
TOpenDialog
Как при использовании TOpenDialog можно получить только путь к файлу, а не имя самого файла?
Мне нужно в DatabaseName загнать расположение базы, а с именем этой же базы он выкидает ошибку! Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#2
|
|||
|
|||
Extractfilepath(o.filename);
|
#3
|
||||
|
||||
Этим ты получаешь путь к ЕХЕ файлу, а не к самой базе!
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#4
|
||||
|
||||
Цитата:
Код:
ExtractFileName(o.FileName); --------------------------------------------- Программирование - не профессия, а стиль жизни |
#5
|
||||
|
||||
Ребята, я же просил для TOpenDialog, а это для обычного файла!
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#6
|
||||
|
||||
Мне кажется, что тебе TOpenDialog не подходит вообще, создай свою форму, а на нее поставь компонент TShellTreeView.
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#7
|
||||
|
||||
То что нужно!!!!!
ОГРОМНЕЙШОЕ СПАСИБО Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#8
|
||||
|
||||
Всегда пожалуйста!
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#9
|
||||
|
||||
Новый вопрос ???
Можно ли в MessageDlg установить вывод кнопок не на английском а на русском языке? И как это сделать?
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#10
|
|||
|
|||
Вот один из способов. У меня русифицированная Windows. И если вызвать функцию MessageBox, то названия будут по-русски.
Код:
procedure TForm1.Button1Click(Sender: TObject); begin Application.MessageBox('Text', 'Caption', MB_YESNOCANCEL); end; Последний раз редактировалось AlexSku, 16.11.2007 в 17:05. |