Link til hjemmeside?

Tags:    delphi

Er det muligt for mig at skrive et stykke understreget tekst, der så, når man trykker på det, åbner en hjemmeside?



Besøg: http://www.interflare.tk



4 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Skriv en adresse i en label...
I din "USES" list, tilføjer du Shellapi.
Og som "onclick" event for din label, skriver du:

ShellExecute(Handle, pchar('open'), pchar('http://url.til.dit.site.dk'), Pchar('null'), pchar('null'), sW_SHOWNORMAL);

Hilsen CHadi
Mit lykketal er 2959



Dropp en Label på din form og sett dens Font.Style til fsUnderline.
Legg til ShellApi under uses, og putt denne koden inn på Labelens OnClick:
Fold kodeboks ind/udKode 


Mvh
DiZpel



Er det muligt for mig at skrive et stykke understreget tekst, der så, når man trykker på det, åbner en hjemmeside?



Besøg: http://www.interflare.tk

Hej,

Du kan evt. kombinere svaret fra Dizpel med svaret på denne tråd: http://www.udvikleren.dk/thread.php?techid=2&f=2&t=1276&searchword=mouseleave

I eksemplets 2 event funktioner kan du sætte/fjerne "underline" fra din font style og evt. ændre cursoren til "Hand". På denne måde vil det se ud som et normal link i f.eks. IE'en.

/Michael.



Det var lige det jeg skulle bruge. 40 point til Chadi.


Besøg: http://www.interflare.tk



t