Hyerlink oder Emailadresse in DBEdit

[lemi4ever]

Hallo

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.

Wie geht das?

Michael

[shmia]

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;