| 
| 
 | Вопрос # 6 200/ вопрос решён / | 
 |  Уважаемые эксперты, здравствуйте!
 У меня есть обработчик исключительной ситуации:
 
 
 try
// операторы
except
  on EConvertError do
raise EConvertError.Create('There are inadmissible characters in left window');
end;Вопрос. Как програмно поменять надпись в верхнем левом углу окна сообщения об ошибке?
 
 Сейчас эту надпись прога берёт из названия exe файла.
 
 Но тут очередная проблема.
 
 У меня exe файл называется "Sloka Meter 2.01 beta.exe". А в окошке сообщения выдаётся только "Sloka Meter 2", то есть только до точки. Когда убираю эту точку, то тогда показывается вся надпись.
 
 Можно этот глюк как-то устранить?
 
 И вообще то это окошко у меня показывается для исключительной ситуации. Хотел бы всё таки сверху
 записать свой текст, например "Something is going wrong".
 
 Заранее благодарен.
 К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса) 
|  |   Вопрос задал: mpdasa (статус: Посетитель)Вопрос отправлен: 18 июня 2012, 07:47
 Состояние вопроса: решён, ответов: 0.
 |  
 Мини-форум вопросаВсего сообщений: 3; последнее сообщение — 18 июня 2012, 10:25; участников в обсуждении: 2. 
|   | min@y™ (статус: Доктор наук), 18 июня 2012, 08:20 [#1]:А обязательно рерэйзть исключение? Для чего рерэйз, только для показа сообщения об ошибке? Если да, то заменить на MessageBox() или Application.MessageBox() и не мучиться. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | mpdasa (статус: Посетитель), 18 июня 2012, 10:11 [#2]:Но тогда пропадает в окне сообщения картинка красного кружка перчеркнутая крестиком. 
 Я вычитал, что это дело можно реализовать с помощью
 
 setwindowtext (findwindow(nil, OldName), NewName); Но я не знаю, как сказать проге, что
 
 
 EConvertError.Create('...');это старое окно (имя).
 Как правильно написать эту строку?
 |  
|   | min@y™ (статус: Доктор наук), 18 июня 2012, 10:25 [#3]: Цитата (mpdasa): Но тогда пропадает в окне сообщения картинка красного кружка перчеркнутая крестиком. Да неужели?! А у меня не пропадает:
 
 Application.MessageBox('There are inadmissible characters in left window',
                       'Ошибка',
                       MB_OK + MB_ICONERROR);Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  18 июня 2012, 10:38: Статус вопроса изменён на решённый (изменил автор вопроса — mpdasa) Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |