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