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 |
|