delover
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ошибку удалось исправить:
Код:
try ...
except on E: Exception do
begin
if (E = EObj) and (EObj = ExceptObject) then
//-- EObj.Message := 'message =';
//-- Application.HandleException(E);
MessageBox(0, 'message =', Application.Title, MB_OK + MB_ICONSTOP)
else
MessageBox(0, EObj.Message, Application.Title, MB_OK + MB_ICONSTOP);
end;
end;end;
|
поправил  заработало, кстати в .net свойство message только для чтения. |
Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 15:51 16-10-2009 | Исправлено: delover, 16:07 16-10-2009 |
|
