hyperlink erstellen ??? Hilfe

Hallo

Ich bin in Delphi anfänger und wüsste gerne, wie man ein einfach Hyperlink erstellt.

**Bernhard Geyer**

Was willst Du damit machen und wo soll dieser Hyperlink wirken?

Und ich glaube nicht das das eine neuer Betrag zur Code-Library ist.

**himitsu**

Erstmal gibt es dafür schon was Fertiges ... z.B. in den JEDIs

Oder mit einem "normalen" TLabel und im OI folgendes einstellen:

markieren

Code:

			Cursor       = crHandPoint

Font.Color   = clHotLight

OnClick      = Label1Click

OnMouseEnter = Label1MouseEnter

OnMouseLeave = Label1MouseLeave

dann noch dieses dazu:

zusammenfalten · markieren

Delphi-Quellcode:

			Uses ShellAPI;

Procedure TInfoForm.Label1MouseEnter(Sender: TObject);

  Begin

    Label1.Font.Style := Label1.Font.Style + [fsUnderline];

  End;

Procedure TInfoForm.Label1MouseLeave(Sender: TObject);

  Begin

    Label1.Font.Style := Label1.Font.Style - [fsUnderline];

  End;

Procedure TInfoForm.Label1Click(Sender: TObject);

  Begin

    ShellExecute(Handle, '', PChar('http://........'), '', '', 0);

  End;

Es wäre auch gut möglich für mehrere Labels zu realisieren (mit den selben Ereignisprozeduren):

markieren

Code:

			Cursor       = crHandPoint

Font.Color   = clHotLight

OnClick      = Label1Click

OnMouseEnter = Label1MouseEnter

OnMouseLeave = Label1MouseLeave

Caption      = irgendwas (z.B. "Link zu meiner Seite", oder einfach nur die URL)

Hint         = [url]http://.[/url]....

zusammenfalten · markieren

Delphi-Quellcode:

			Procedure TInfoForm.Label1MouseEnter(Sender: TObject);

  Begin

    TLabel(Sender).Font.Style := TLabel(Sender).Font.Style + [fsUnderline];

  End;

Procedure TInfoForm.Label1MouseLeave(Sender: TObject);

  Begin

    TLabel(Sender).Font.Style := TLabel(Sender).Font.Style - [fsUnderline];

  End;

Procedure TInfoForm.Label1Click(Sender: TObject);

  Begin

    ShellExecute(Handle, '', PChar(TLabel(Sender).Hint), '', '', 0);

  End;

Und wenn die URL direkt in CAPTION steht, dann auch ohne HINT und mit dieser Prozedur:

markieren

Delphi-Quellcode:

			Procedure TInfoForm.Label1Click(Sender: TObject);

  Begin

    ShellExecute(Handle, '', PChar(TLabel(Sender).aption), '', '', 0);

  End;

[add]
OK,oder statisch, so wie vom Nächsten beschrieben:

OnMouseEnter und OnMouseLeave weglassen,
und dafür im OI zusätzlich noch Font.Style = fsUnderline

**Ralf Kaiser**

Hi,

ich vermute jetzt einfach mal so ins blaue (du hast es ja nicht näher definiert): Du willst in einem win32-Programm einen Hyperlink simulieren?

- Füge deinem Formular ein Label hinzu
- Setze den Font auf Blau/Unterstrichen
- Setze die Eigenschaft "Cursor" des Labels auf "crHandPoint"
- Erzeuge ein Ereignis für "OnClick"
- Füge diesen Code in den Eventhandler für das Ereignis ein:

ShellExecute(0, 'open', 'http://www.delphipraxis.net', nil, nil, SW_SHOWNORMAL); - Füge die Unit "ShellAPI" der Uses-Liste hinzu

Dann das Programm compillieren und starten und auf das Label klicken.

Ciao,
Ralf

**DeddyH**

Bisschen spät, wie?

hyperlink erstellen ??? Hilfe

hyperlink erstellen ??? Hilfe

Re: hyperlink erstellen ??? Hilfe

Re: hyperlink erstellen ??? Hilfe

Re: hyperlink erstellen ??? Hilfe

Re: hyperlink erstellen ??? Hilfe

Forumregeln

Legostone (Gast) n/a Beiträge	#1 hyperlink erstellen ??? Hilfe 20. Dez 2006, 12:15 Hallo Ich bin in Delphi anfänger und wüsste gerne, wie man ein einfach Hyperlink erstellt.
	Zitat

Bernhard Geyer Registriert seit: 13. Aug 2002 17.171 Beiträge Delphi 10.4 Sydney	#2 Re: hyperlink erstellen ??? Hilfe 20. Dez 2006, 12:27 Was willst Du damit machen und wo soll dieser Hyperlink wirken? Und ich glaube nicht das das eine neuer Betrag zur Code-Library ist. Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat

	21. Dez 2008, 18:12 Erstellt von albertweber
	Dieser Beitrag wurde von gelöscht.

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#6 Re: hyperlink erstellen ??? Hilfe 21. Dez 2008, 18:16 Bisschen spät, wie? Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat