Links ins Internet

Beiträge: 287 XP SP2 Delphi 7

Hallo

Ich rätsele schon lange run und bin nicht drauf gekommen.
Wie kann ich links auf meine Form bringen?
Die dann ins internet führen.

Anhand von
www.delphi-forum.de

Dank im Voraus

110022

jaenicke · Verfasst: Fr 27.02.09 19:15

Label, Farbe blau, Unterstrichen, Handcursor, OnClick --> ShellExecute ;-)

Webo · Verfasst: Fr 27.02.09 19:20

Was dann etwa so aussehen würde:

Delphi-Quelltext

markieren

1:
2:
3:
4:
5:
6:

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'open', 
               PChar(Label1.Caption), nil, nil, 
               SW_ShowNormal);
end;

Einstellungen für's Label:

Delphi-Quelltext

markieren

1:
2:
3:

Cursor := crHandPoint;
Font.Color := clBlue;
Font.Style := [fsUnderline];

Zusätzlich die Unit Shellapi einbinden.

_________________
Man kann nur das aus dem Ärmel schütteln, was man auch vorher reingesteckt hat.

Beiträge: 287 XP SP2 Delphi 7

jaenicke hat folgendes geschrieben :

Label, Farbe blau, Unterstrichen, Handcursor, OnClick --> ShellExecute ;-)

Danke euch beiden^^

Also so?

Delphi-Quelltext

markieren

1:	shellexecute(application.Handle, 'open', PChar('www.delphi-forum.de'), nil, nil, SW_SHOWNORMAL);

OK, Recht herzlichen Dank

Webo · Verfasst: Fr 27.02.09 19:22

110022 hat folgendes geschrieben :

Also so?

Genau so.

_________________
Man kann nur das aus dem Ärmel schütteln, was man auch vorher reingesteckt hat.

Yogu · Verfasst: Fr 27.02.09 20:37

110022 hat folgendes geschrieben :

Also so?

Füg lieber noch ein http:// vor der URL ein, man kann ja nie wissen...


Delphi-Forum.de	Delphi-Library.de
C-Sharp-Forum.de	C-Sharp-Library.de