HTML-Link erstellen unter Delphi

[fred.reichbier]

Hi
Das Tüpfelchen auf dem i wäre dann noch, beim Label Font-style auf fsUnderline zu stellen,
andere Farbe ausser Schwarz zu nehmen und als Cursor crHandPoint einzugeben.
MfG,
fred

[raven_22]

So in etwa ? :wink:

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)

[Alexander]

Zitat:

Zitat von Markus K.

Hallo,
ich weiß nicht ob es euch etwas hilft, aber mit folgender Funktion wird eine Seite bei mir immer in einem neuen Fenster geöffnet.

Delphi-Quellcode:

ShellExecute(0, 'Open',PChar('IEXPLORE.EXE'),'http://web.de', nil, SW_ShowNormal);

Hatte dies aber bisher nur mit dem Internet Explorer versucht. Web.de ist dabei nur ein Beispiel für eine Seite.

Tschüß Markus

Dann wird allerdings nur der IE und nicht der Standard-Browser geöffnet, dass ist alles nicht ganz optimal. Optimal wäre neues Fenster + STandard-Browser und das geht leider nicht.

PS: In Delphi 8 gibt es ein LinkLabel, das wirklich wie ein Link aussieht ;-)