Autor Beitrag
hansg
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 168

Win XP Professional SP3, Vista Ultimate 32 SP1
Delphi 6 Professional
BeitragVerfasst: So 12.01.03 17:53 
Hallo,
kann man eine Url in einer About Box so darstellen das der Link bei anklicken im Browser geöffnet wird?

Das gleich mit einer email Adresse


Gruß Hans
Klabautermann
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Veteran
Beiträge: 6366
Erhaltene Danke: 60

Windows 7, Ubuntu
Delphi 7 Prof.
BeitragVerfasst: So 12.01.03 19:17 
Hallo,

du musst lediglich im OnClck Ereignis ein Shellexecute aufrufen.
Genauere Beschreibungen zu diesem Befehl findest du hier im Forum ;).

Gruß
Klabautermann
hansg Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 168

Win XP Professional SP3, Vista Ultimate 32 SP1
Delphi 6 Professional
BeitragVerfasst: So 12.01.03 20:45 
So,
wen es noch Interessiert:

bei Uses ShellAPI hinzufügen

Label1 - url (onmousemove):
ausblenden Quelltext
1:
ShellExecute(0,'open',PChar('www.xxxxx.de'),'',nil,SW_Normal);					


label2 - email (onmousemove):

ausblenden Quelltext
1:
ShellExecute(0,'open',PChar('mailto:xxxx@xxxx.de'),'',nil,SW_Normal);					



Zusätzlich kann man bei onmousemove noch die farbe ändern bzw. unterstrichen anzeigen

Viel Spaß

Gruß Hans


Zuletzt bearbeitet von hansg am Mo 13.01.03 18:04, insgesamt 2-mal bearbeitet
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: So 12.01.03 21:10 
Das heißt jedes mal, wenn ich mit der Maus versehentlich über das Label fahre wird dein Code ausgeführt. Sehr sinnvoll. :evil:


Zuletzt bearbeitet von Luckie am So 12.01.03 22:30, insgesamt 1-mal bearbeitet
hansg Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 168

Win XP Professional SP3, Vista Ultimate 32 SP1
Delphi 6 Professional
BeitragVerfasst: So 12.01.03 21:51 
Sorry,
da hat sich der Tipteufel eingeschlichen, ich meinte natürlich onclick.

Label1 - url (onclick):
ausblenden Quelltext
1:
ShellExecute(0,'open',PChar('www.xxxxx.de'),'',nil,SW_Normal);					


label2 - email (onclick):
ausblenden Quelltext
1:
ShellExecute(0,'open',PChar('mailto:xxxx@xxxx.de'),'',nil,SW_Normal);					


Gruß Hans


Zuletzt bearbeitet von hansg am Mo 13.01.03 18:05, insgesamt 2-mal bearbeitet
MathiasSimmack
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: So 12.01.03 22:21 
Na, da hat sich jetzt wohl der Dreh-Teufel eingeschlichen? :wink: