Autor Beitrag
110022
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 287

XP SP2
Delphi 7
BeitragVerfasst: Fr 27.02.09 18:14 
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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19346
Erhaltene Danke: 1754

W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: Fr 27.02.09 18:15 
Label, Farbe blau, Unterstrichen, Handcursor, OnClick --> ShellExecute ;-)
Webo
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 577
Erhaltene Danke: 14

Win 7, Debian
C# (Visual Studio 2013), PHP, C, C++ (Eclipse, KDevelop)
BeitragVerfasst: Fr 27.02.09 18:20 
Was dann etwa so aussehen würde:
ausblenden Delphi-Quelltext
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:
ausblenden Delphi-Quelltext
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.


Zuletzt bearbeitet von Webo am Fr 27.02.09 18:21, insgesamt 1-mal bearbeitet
110022 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 287

XP SP2
Delphi 7
BeitragVerfasst: Fr 27.02.09 18:21 
user profile iconjaenicke hat folgendes geschrieben Zum zitierten Posting springen:
Label, Farbe blau, Unterstrichen, Handcursor, OnClick --> ShellExecute ;-)

Danke euch beiden^^

Also so?
ausblenden Delphi-Quelltext
1:
shellexecute(application.Handle, 'open', PChar('www.delphi-forum.de'), nil, nil, SW_SHOWNORMAL);					


OK, Recht herzlichen Dank
Webo
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 577
Erhaltene Danke: 14

Win 7, Debian
C# (Visual Studio 2013), PHP, C, C++ (Eclipse, KDevelop)
BeitragVerfasst: Fr 27.02.09 18:22 
user profile icon110022 hat folgendes geschrieben Zum zitierten Posting springen:
Also so?

Genau so.

_________________
Man kann nur das aus dem Ärmel schütteln, was man auch vorher reingesteckt hat.
Yogu
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2598
Erhaltene Danke: 156

Ubuntu 13.04, Win 7
C# (VS 2013)
BeitragVerfasst: Fr 27.02.09 19:37 
user profile icon110022 hat folgendes geschrieben Zum zitierten Posting springen:
Also so?

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