Zitat von
lemi4ever:
Ich möchte gerne in ein DBEdit Feld einen Hyperlink oder eine emailadresse eingeben und nach der Eingabe wird der Eintrag las effektiven Hyperlink zum anklicken erkannt.
Font.Color auf Blau und Font.Style auf Unterstrichen setzen, damit der Inhalt wie ein Hypherlink aussieht.
Delphi-Quellcode:
function OpenURL(
const url:
string): Boolean;
begin
// uses Shellapi nicht vergessen
Result := ShellExecute(Application.MainForm.Handle, '
open', PChar(
url),
nil,
nil, SW_SHOW) > 32;
end;
.....DBEdit1Doubleclick(.....);
begin
OpenURL(DBEdit1.Text);
end;