Hyperlink

[PES]

Hallo,

möchte gerne mit einem klick auf ein Label die Internetseite angezeigt bekommen.

Damit habe ich das probiert, aber ich weiß die Seite nicht vorher, sondern der Link wird in eine Datenbank eingegeben.

Delphi-Quellcode:

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

Nur steht aber der Link den ich besuchen möchte im Label steht. Wie bekomme ich das hin?

Gruß PES

[Nicolai1234]

Standardbrowser

[CalganX]

Hi,
du musst einfach den Text, der im Label steht (Caption) in einen PChar umwandeln, und dann statt der Delphi-PRAXiS-Domain in den Befehl eintragen.

Chris

[PES]

ich benutze die Komponente DBLabel, die ja bekanntlich die Eigenschaft Caption nicht hat. Was tun?

[CalganX]

Hi,
achso. Okay, ich beschäftige mich normalerweise nicht mit Datenbanken, allerdings denke ich, dass selbst das DBLabel eine Eigenschaft hat, in dem der Text drin steht (irgendwie muss er ja da rein kommen). Dann nimmst du einfach die.

... hm... das wäre aber auch zu einfach...

Chris

[PES]

kannst du mir mal ein Beispiel machen, als wenn du eine Caption benutzen würdest. Stehe im Moment ziemlich auf dem Schlauch. Anhand eines Beispiels wird es mir bestimmt klarer.

[CalganX]

Hi,
angenommen lbLinkLabel ist dein ganz normales Label:

Delphi-Quellcode:

uses ..., ShellApi, ...; // nicht vergessen ;-)

{...}

ShellExecute(Application.Handle, 'open', PChar(lbLinkLabel.Caption), nil, nil, SW_SHOW);

Chris

[MrKnogge]

aber du kannst doch den Datensatz nochmalextra auslesen, oder ?

[PES]

@ Chakotay1308

ja, super das läuft.

@ MrKnogge

habe keine Ahnung was du meinst.

@ ALL

Jemand ne Ahnung was ich da statt lbLinkLabel.Caption für ein DBLabel eintragen muss.

[Markus K.]

Hallo PES,
so müsste es gehen...glaub ich.
ShellExecute(Application.Handle, 'open', PChar(DBText1.Field.Text), nil, nil, SW_SHOW); Tschüß Markus