dumme frage ^^ hyperlink

[the-specialist]

:wall: wollte mal fragen auch wenns vielleicht extrem blöde is wie man einen hyperlinnk mit delphi einbaut also das wenn man auf ein label klickt sich ie öffnet und seite anzeigt???

[Stanlay Hanks]

:hi: Nana...wieso denn das (:wall:) Es gibt keine dummen Fragen! :wink:

Ich zitiere mal Daniel_B aus einem Beitrag, den ich über die Suche (:wink:, das nächste mal bitte auch benutzen) gefunden hab.

Zitat:

Zitat von Daniel B

ShellExecute(0, 'open', 'http://www.delphipraxis.net', nil, nil, SW_SHOW);

Kleine Ergänzung: Du musst vorher noch die Unit ShellAPI einbinden, sonst geht gar nix.

Man liest sich, Stanlay :hi:

[Mirilin]

:hi:

zum Beispiel mit ShellExecute

[RomanK]

Hoi,schau dir das an:
http://www.delphipraxis.net/internal_redirect.php?t=58
Diesen Code einfach ins OnClick-Erreignis deines Labels schreiben.
Bei Bedarf auch noch:

Delphi-Quellcode:

ShellExecute(0, 'open',PChar((Sender As TLabel).caption), nil, nil, SW_SHOW);

dann wird automatisch die Seite mit der URL deines Labels angezeigt.

[himitsu]

Ich habs so gemacht.

Diese Procedure wird bei mir für mehrere Labels verwendet, deshalb ist der Link mit im Label eingebaut. Ausserdem kann der User dann auch sehen wohin der Link führt, bevor er ihn anklickt.

Hab gerade keinen Packer, deshalb mal einzeln.

[the-specialist]

öh sry ich kriege da smit dem shell execut einfahc nich hin

[himitsu]

Woran hängt es denn?

:zwinker: Hast'e schon mal bei mir reingeschaut?
Habs aus 'nem funktionierendem Prog raus geholt.

Add:
the-specialist hat Recht, ShellAPI muss auch noch rein.

[the-specialist]

Zitat:

Kleine Ergänzung: Du musst vorher noch die Unit ShellAPI einbinden, sonst geht gar nix.

:?: :?: :?: :dance: :duck: :dance: :?: :?: :?:

[Stanlay Hanks]

Wilst du wissen, wie man das einbindet, oder hat es daran gelegen?

[Daniel B]

Oben bei den uses, wo die ganzen Units aufgelistet sind, da noch ShellApi hinzufügen, dann steht Dir auch ShellExecute zur Verfügung.

[sakura]

Oder nutze folgende Komponente: Das offizielle DP-Link Label

...:cat:...

[Daniel B]

Zitat:

Zitat von sakura

Oder nutze folgende Komponente: Das offizielle DP-Link Label

Hossa, das Ding gibts ja auch noch, ganz vergessen. :oops:

[the-specialist]

Also ich habs so gemacht weis nich ob ihr das meintet :D aber dickes danke

http://de.geocities.com/saufein/sodenkeich.jpg

Aber was ich noch möchte ist das der link on mouse over blau wird is schätz ich kein problem aber wenn man als anfänger nich drauf klicken kann :D

[sakura]

Zitat:

Zitat von the-specialist

Aber was ich noch möchte ist das der link on mouse over blau wird is schätz ich kein problem aber wenn man als anfänger nich drauf klicken kann :D

Das wird schon schwerer, da Du die Farbe des Links ywar 'ndern kannst, wenn die Maus dar[ber ist. Leider erh'lst Du keine Infomration, wann die Maus den Link verl'sst, damit kannst Du denn schlecht wieder auf die ursprüngliche Farbe setzen :-( Hilft doch nur eine Komponente - nutze den obigen Link, installieren und freuen. :firejump: Die Komponente hat die Farben: Unvisited, Visited und Hover (u.U. auch Active)

...:cat:...

[samson]

Hallo,

die JediCode-Komponenten stellen auch einen LinkLabel bereit. Im Register: 'Jv Internet' findest Du eine Komponente Namens: 'JvHotLink' mit dem geht das auch.

In den JediCode-Komponenten sind viele schöne Dinge bei und diese schönen Dinge sind sogar kostenlos.

Ich Empfehle die Standardmässige Installation dieser.

Gruss


Samson

[the-specialist]

isn das also die code entzyclopedie oda was auch imma

[sakura]

@the-specialist: Rechtschreibfehler können passieren, aber korrigiere das obige mal nach Besten Wissen, sonst nehme ich mir die Freiheit den Post zu löschen :warn: Warum :?: Weil soetwas keiner über die Suche finden wird und damit ist keinem geholfen :evil:

...:cat:...

[Niels]

Zitat:

Leider erh'lst Du keine Infomration, wann die Maus den Link verl'sst, damit kannst Du denn schlecht wieder auf die ursprüngliche Farbe setzen

@sakura:
Bei mir gibt's n Event, das OnMouseLeave heißt. Hab Delphi 7 (ka wie das bei älteren Versionen war)

kleines Beispiel für Code:

Delphi-Quellcode:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  Label1.Font.Color := clgreen;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  Label1.Font.Color := clblack;
end;

Niels

[sakura]

Zitat:

Zitat von Niels

Bei mir gibt's n Event, das OnMouseLeave heißt. Hab Delphi 7

:oops: Hm, man merkt, daß ich mit D7 noch nicht viel VCL-Kram getan habe. Bei Delphi 5 (habe nachgeschaut) gab es das nocht nicht :D

...:cat:...