Einzelnen Beitrag anzeigen

Benutzerbild von runningsoft
runningsoft

Registriert seit: 8. Okt 2004
Ort: Bernau
108 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Komponente TLinkLabel

  Alt 14. Jun 2011, 14:39
Gibts da Unterschiede zwischen Delphi 10 und Delphi XE?
Bei mir funktioniert TLinkLabel (anscheinend) problemlos. Als Caption <a href="http://www.runningsoft.de">Link</a> eingetragen und im Ereignis OnLinkClick:

Delphi-Quellcode:
procedure TForm1.LinkLabel1LinkClick(Sender: TObject; const Link: string;
  LinkType: TSysLinkType);
begin
ShellExecute(Handle, 'open', PWideChar(Link), nil, nil, SW_MAXIMIZE);
end;
Der Linktext wird unterstrichen dargestellt, Cursor ändert sich beim draufzeigen in crHandPoint, eigentlich alles so, wie erwartet.

Steffen
Steffen
  Mit Zitat antworten Zitat