DBgrid - открытие почтовой программы

[Scuer]

Обыскал весь инет для решения задачи и пусто (( А вопрос таков
Имеем стандартный грид, в нём записи полученные из БД( поля типа имя, фамилия, номер телефона и т.д.).
Задача, есть поле email (в ктором содержится записи электронной почты).
Надо чтоб эти записи были как активная ссылка при нажатии на которую открывалась почтовая программа. Сам вызов mailto прост, реализовать можно через SellExecute

Код: Выделить всё

shellexecute(Application.Mainform.handle, 'open',PChar('mailto:' + 'почта' ),nil, nil, sw_normal);

А вот как это дело привинтить к самуму dbgrid?

[vada]

Событие Click на гриде обработать никак?

[WAYFARER]

Обработать событие onCellClick

Код: Выделить всё

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Column.FieldName = 'EMAIL' then shellexecute(Application.Mainform.handle, 'open',PChar('mailto:' + Column.Field.AsString\0 ),nil, nil, sw_normal);
end;
 

[Scuer]

Огромное спасибо

Код: Выделить всё

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Column.FieldName = 'EMAIL' then shellexecute(Application.Mainform.handle, 'open',PChar('mailto:' + Column.Field.AsString\0 ),nil, nil, sw_normal);
end;

Всё как надо супер)) Обработку если поле пустое то не надо ничего и никого посылать я уже сам допишу )))

3 строчки и пол дня думать как это обработать, а ответ простой.
Всем, ешё раз спасибою

Добавлено спустя 7 минут 8 секунд:

Код: Выделить всё

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   if Column.FieldName = EMAIL' then
begin
  if Column.Field.AsString ='' then
     exit
else
    shellexecute(Application.Mainform.handle, 'open',PChar('mailto:' + Column.Field.AsString),nil, nil, sw_normal);
end;
end;

Вот так всё просто и всё работает.
Тему можно считать закрытой.
Всем спасибо.