![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с процедурой ShowMessage))) [D6, WinXP]
Socol © (2002-07-05 07:38:00)Здравствуйте)))
Проблема с процедурой ShowMessage когда выводится это окно то там есть сам текст и загаловок)))
Как вручную задать этот заголовок)))
Так же данная функция может выполнятся с картинками например при сообщении об ошибке выводится перечеркнутый красный круг подскажите как это делать)))
И еще стандартно там кномка ОК как поставить ДА-НЕТ и т.д)))
Спасибо всем кто ответил)))
Yuri-7 (2002-07-14 12:44:00) [1]Используй WinApi-шный MessageBox, там ничего подправлять не надо. Если у тебя русский WINDOWS, то все будет на русском.
Vlad1 (2002-07-14 12:31:00) [2]маленькая поправка:
CanClose:= (Application.MessageBox(PChar("Вы действительно"#13"хотите"#13"закрыть приложение?"),"Подтверждение",mb_YesNo+mb_iconquestion)=idyes );
(PChar надо добавить, если заругается компилятор - иногда это бывает- а, в принципе, срабатывает часто и без PChar )
и т.п.
Vlad1 (2002-07-14 12:25:00) [3]
CanClose:= (Application.MessageBox(PChar("Вы действительно"#13"закрыть приложение?"),"Подтверждение",mb_YesNo+mb_iconquestion)=idyes );
и т.п.
Vladislav (2002-07-10 09:45:00) [4]Application.MessageBox
MessageDlg. Чтобы надписи на кнопках стали русскими, можно подправить некоторый файлы. Подробнее о руссификации ищи, например, здесь http://delphiplus.spils.lv/downloads/rus/d3456rus.zip
Work_LEON (2002-07-10 08:55:00) [5]Произведи поиск файла *.pas в библиотеках Delphi, где в параметре поиска укажи заголовок. Открой найденое в любом текстовом редакторе и... делай что хочешь, например надпись Error заменить на "привет"!
tsarevep (2002-07-05 09:21:00) [6]Application.MessageBox - в нем "да нет"по умолчанию, если язык у свиндуса русский то и надписи будут русские.
AGGRESSOR (2002-07-05 08:43:00) [7]MessageDlg- там и mtError (ошибка), и кнопки разные, и вообще все, что тебе нужно.
MBo (2002-07-05 07:41:00) [8]MessageBox