Zitat:
Bisher hatte ich zwar ein einfaches Label um OnClick+ShellExeceute für den Link und um OnMouseOver + OnMouseLeave für einen Hover-Efekt genutzt.
So habe ich es auch gemacht.
TLinkLabel ist schlecht dokumentiert. Ich habe es ausprobiert, nur mit <a>Link</a> funktioniert es. Mit <a href ...> nicht. Bei ShellExecute wird Link nicht richtig ausgelöst und was hat es LinkType auf sich.
Wie funktioniert den ShellExecute zusammen mit LinkLabel?
Delphi-Quellcode:
procedure THistoryDlg.LinkLabel1LinkClick(Sender: TObject;
const Link:
string;
LinkType: TSysLinkType);
begin
ShellExecute(
Handle, '
open', PWideChar(Link),
nil,
nil, SW_MAXIMIZE);
end;
jedenfall läuft nicht. Ich habe es gerade geprüft, Link ist ein leerer String. LL.Caption='<a>Link</a>' sieht so aus.
Ich finde LinkLabel ist ein Zeitdieb.
Willie