Naeel Maqsudov » 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;
Да, тут действительно прийдется создать еще одну форму - диалоговое окно с TLabel с текстом "Напишите нам: [email]qwe@asd.zxc[/email]", синего цвета, с подчерктванием и курсором crHandPoint.
А на OnClick написать:
[code]
uses ShellApi;
...
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0,nil,'mailto:qwe@asd.zxc',nil,nil,0);
end;
[/code]