Для этого нужно сделать:
Application.OnException:=Объект.Обработчик_ошибок;
так и сделал, всё просто в отлично, но блин я вставляю текс ошибки который будет выдаваться, и с меня требуют чтоб там было мыло гиперссылкой, как можно сделать?
Гиперссылка в диалоге.
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
duke, не нужно пытатья задавать все вопросы на свете в одном топике. Ок?
По вопросу: а как ты выводишь текст ошибки? Если при помощи ShowMessage, то боюсь ссылку тебе вряд ли вставить удастся.
По вопросу: а как ты выводишь текст ошибки? Если при помощи ShowMessage, то боюсь ссылку тебе вряд ли вставить удастся.
Даже самый дурацкий замысел можно воплотить мастерски
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Да, тут действительно прийдется создать еще одну форму - диалоговое окно с TLabel с текстом "Напишите нам: qwe@asd.zxc", синего цвета, с подчерктванием и курсором crHandPoint.
А на OnClick написать:
А на OnClick написать:
Код: Выделить всё
uses ShellApi;
...
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0,nil,'mailto:qwe@asd.zxc',nil,nil,0);
end;
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
А еще командная строка может быть такой:
mailto:qwe@asd.zxc?subject=bagreport&body=Ассess violation bla-bla-bla
Тогда юзеру останется поставить только подпись, а письмо с описанием ошибки будет уже готово!
mailto:qwe@asd.zxc?subject=bagreport&body=Ассess violation bla-bla-bla
Тогда юзеру останется поставить только подпись, а письмо с описанием ошибки будет уже готово!