Topic: [Скрипт] Открытие почтовой программы с адресатом
Открытие почтовой программы с адресатом
Скрипт
procedure Form1_Edit1_OnDoubleClick (Sender: string);
begin
OpenFile('mailto:'+Form1.Edit1.Text);
end;
// not necessarily
// just for hight light e-mail address and change cursor to HandPoint
procedure Form1_Edit1_OnKeyUp (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if Pos('@', Form1.Edit1.Text)>0 then
begin
Form1.Edit1.Cursor := crHandPoint;
Form1.Edit1.Font.Style:=fsUnderline;
Form1.Edit1.Font.Color := clHotLight;
end else
begin
Form1.Edit1.Cursor := crDefault;
Form1.Edit1.Font.Style:=0;
Form1.Edit1.Font.Color := clDefault;
end;
end;
Проект с примером: