Entwickler-Ecke

Windows API - Url in About Box


hansg - So 12.01.03 17:53
Titel: Url in About Box
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 - 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 - So 12.01.03 20:45

So,
wen es noch Interessiert:

bei Uses ShellAPI hinzufügen

Label1 - url (onmousemove):

Quelltext
1:
ShellExecute(0,'open',PChar('www.xxxxx.de'),'',nil,SW_Normal);                    


label2 - email (onmousemove):


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


Delete - 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:


hansg - So 12.01.03 21:51

Sorry,
da hat sich der Tipteufel eingeschlichen, ich meinte natürlich onclick.

Label1 - url (onclick):

Quelltext
1:
ShellExecute(0,'open',PChar('www.xxxxx.de'),'',nil,SW_Normal);                    


label2 - email (onclick):

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


Gruß Hans


Delete - So 12.01.03 22:21

Na, da hat sich jetzt wohl der Dreh-Teufel eingeschlichen? :wink: