Форум программистов  
Главная  |  Правила форума  |  Исходники Delphi  |  Основы Delphi  |  Блог программистов  |  Рассылка  |  Повторная активизация e-mail  | 

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



О проблемах с регистрацией и почтой пишите сюда - post@programmersforum.ru, по необходимости будем регистрировать вручную. И проверяйте папку спам!



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

Привет всем!
Кто-нибудь встречал, как из OpenDialog'а при его запуске (Execute) убрать (скрыть) программно кнопку "Отмена"???
Андрей= вне форума   Ответить с цитированием
Старый 29.04.2008, 13: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, 14:31   #3
Андрей=
 
Регистрация: 22.04.2008
Сообщений: 9
Репутация: 10
По умолчанию

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

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

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

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

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

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

Последний раз редактировалось Airou; 30.04.2008 в 22:24.
Airou вне форума   Ответить с цитированием
Старый 03.05.2008, 14: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 16.06.2008 23:00
OpenDialog Rahim1993 Общие вопросы Delphi 20 21.01.2008 08:26
Помогите с OpenDialog! Relrin Общие вопросы Delphi 7 17.01.2008 21:53
Проблемы с opendialog laborant Общие вопросы Delphi 6 14.09.2007 13:53
OpenDialog.Options:=OpenDialog.Options+[ofAllowMultiSelect]; necky Компоненты Delphi 2 11.08.2007 11:53




14:47.


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

Forex с Admiral Markets — это надежно


Работа на Forex с 2000 года. Очное и дистанционное обучение. Выгодные условия.
магазин горящих туров


более 1000 горящих предложений ежедневно
Бэбиблог - соц сеть для будущих мам


RusProfile.ru


Справочник российских юридических лиц и организаций.