// Wenn in einer Datenbank Internetadressen und/oder Email-Adressen gespeichert
// sind und diese über ein DBGrid angezeigt werden, kann durch einfaches
// Anklicken einer Zelle der Browser bzw. das Email-Programm gestartet werden.
// ("uppercase" ist nur zur Sicherheit eingfügt und nicht unbedingt nötig)

// Getestet mit D4 unter WinME

uses shellapi;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if uppercase(column.fieldname)='EMAIL' // oder wie das Feld eben heißt
then shellexecute(handle,'open',
pchar('mailto:'+table1.fieldbyname('EMail').asString),
nil,nil,sw_shownormal) else
if uppercase(column.fieldname)='HOMEPAGE' // oder wie das Feld eben heißt
then shellexecute(handle,'open',
pchar(table1.fieldbyname('Homepage').asString),
nil,nil,sw_shownormal);
end;