Форум программистов
Реклама:
Интернет Контроль Сервер: российский межсетевой экран.
Контроль трафика, контент-фильтр, почта, антивирус, VPN, прокси-, веб- и jabber-сервер. Сертификат ФСТЭК
Регистрация  |  Повторная активизация e-mail  |  Правила форума  |  Исходники Delphi  |  Основы Delphi  |  Новости клуба  |  alarforum@yandex.ru

Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!


Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi

Ответ
 
Опции темы
Старый 29.04.2008, 14:02   #1
Андрей=
 
Регистрация: 22.04.2008
Сообщений: 9
Репутация: 10
По умолчанию OpenDialog

Привет всем!
Кто-нибудь встречал, как из OpenDialog'а при его запуске (Execute) убрать (скрыть) программно кнопку "Отмена"???
Андрей= вне форума   Ответить с цитированием
Старый 29.04.2008, 14:29   #2
_Dmitry
Профессионал
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Адрес: г. Первоуральск, Свердловская область
Сообщений: 1,191
Репутация: 763

icq: 400455147
По умолчанию

Код:

procedure TForm1.OpenDialog1Show(Sender: TObject);
var
  h,sh: HWND;
begin
  h:=FindWindow(nil,'Открыть'); //ищем окно диалога по заголовку
  sh:=FindWindowEx(h,0,'Button','Отмена'); //ищем кнопку
  ShowWindow(sh,SW_HIDE); //прячем кнопку
end;

_Dmitry вне форума   Ответить с цитированием
Старый 29.04.2008, 15:31   #3
Андрей=
 
Регистрация: 22.04.2008
Сообщений: 9
Репутация: 10
По умолчанию

Спасибо, _Dmitry, за совет. Оказывается, все просто.
Андрей= вне форума   Ответить с цитированием
Старый 29.04.2008, 16:33   #4
Airou
Форумчанин
 
Регистрация: 09.04.2008
Сообщений: 151
Репутация: 10
По умолчанию

А у меня такой вопрос:
RichEdit2.Lines.Assign(OpenDialog1. Files)
Записывает полный путь к файлу, а как получить относительно корневого каталога программы.

Последний раз редактировалось Airou; 29.04.2008 в 16:42.
Airou вне форума   Ответить с цитированием
Старый 29.04.2008, 17:35   #5
Андрей=
 
Регистрация: 22.04.2008
Сообщений: 9
Репутация: 10
По умолчанию

см. ExtractFileName, ExtractFilePath. Не походит?
Андрей= вне форума   Ответить с цитированием
Старый 30.04.2008, 23:21   #6
Airou
Форумчанин
 
Регистрация: 09.04.2008
Сообщений: 151
Репутация: 10
По умолчанию

Ммм что то не пойму как использовать ExtractFilePath применительно к OpenPictureDialog.

RichEdit2.Lines:=ExtractFilePath(Op enPictureDialog1.Files); или что-то вроде этого.

Последний раз редактировалось Airou; 30.04.2008 в 23:24.
Airou вне форума   Ответить с цитированием
Старый 03.05.2008, 15:06   #7
Андрей=
 
Регистрация: 22.04.2008
Сообщений: 9
Репутация: 10
По умолчанию

А так?

If OpenPictureDialog1.Execute then
begin
Memo1.lines.Add(ExtractFilePath(Ope nPictureDialog1.FileName)); //путь
Memo1.lines.Add(ExtractFileName(Ope nPictureDialog1.FileName));// сам файл
Memo1.lines.Add(ExtractFileExt(Open PictureDialog1.FileName));// расширение файла

end;
Андрей= вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
OpenDialog.Filter Artificial Общие вопросы Delphi 5 17.06.2008 00:00
OpenDialog Rahim1993 Общие вопросы Delphi 20 21.01.2008 09:26
Помогите с OpenDialog! Relrin Общие вопросы Delphi 7 17.01.2008 22:53
Проблемы с opendialog laborant Общие вопросы Delphi 6 14.09.2007 14:53
OpenDialog.Options:=OpenDialog.Options+[ofAllowMultiSelect]; necky Компоненты Delphi 2 11.08.2007 12:53




09:58.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.

Пеллетные котлы Emtas


Emtas.net продажа и монтаж отопительного оборудования
Корпусная мебель оптом и под дизайн проект


Низкие цены, высокое качество.
RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru