HTML-Link erstellen unter Delphi

[raven_22]

So in etwa ?

Delphi-Quellcode:

...
uses Shellapi;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:='www.delphipraxis.net';
label1.Font.Style:=[fsUnderline];
label1.Font.Color:=clblue;
end;
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Cursor:=crHandPoint;
label1.Font.Color:=clred;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, 'Open',PChar('IEXPLORE.EXE'),'www.delphipraxis.net', nil, SW_ShowNormal);
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:=clblue;
end;

Gruß raven 8)