Гиперссылка в диалоге.

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
duke
Сообщения: 3
Зарегистрирован: 05 июл 2004, 14:40
Контактная информация:

08 июл 2004, 16:46

Для этого нужно сделать:
Application.OnException:=Объект.Обработчик_ошибок;


так и сделал, всё просто в отлично, но блин я вставляю текс ошибки который будет выдаваться, и с меня требуют чтоб там было мыло гиперссылкой, как можно сделать?
Аватара пользователя
AiK
Сообщения: 2274
Зарегистрирован: 13 фев 2004, 18:14
Откуда: СПб
Контактная информация:

09 июл 2004, 02:42

duke, не нужно пытатья задавать все вопросы на свете в одном топике. Ок?

По вопросу: а как ты выводишь текст ошибки? Если при помощи ShowMessage, то боюсь ссылку тебе вряд ли вставить удастся.
Даже самый дурацкий замысел можно воплотить мастерски
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

14 июл 2004, 02:13

Да, тут действительно прийдется создать еще одну форму - диалоговое окно с 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;

Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

14 июл 2004, 02:45

А еще командная строка может быть такой:

mailto:qwe@asd.zxc?subject=bagreport&body=Ассess violation bla-bla-bla

Тогда юзеру останется поставить только подпись, а письмо с описанием ошибки будет уже готово!
Ответить