HyperLinks

PaRaDoX-Vision

Thema: HyperLinks

Wäre toll wenn das schon in XProfan eingebaut wäre:

Beispiel: (nicht anklicken)

Ein Klick auf so einen Verweis sollte aber nicht nur die Möglichkeit
bieten eine Webseite oder das E-Mail Programm zu öffnen.
Vielmehr sollte es auch möglich sein dieses Mittel als
Navigation in eigenen XProfan Progammen einsetzen zu können.

Meine Proc 1
Meine Proc 2

Gruß

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

Bangkok

Du kannsr aber schon jetzt mit

Code

Control("SysLink","a href=\qhttp://www.xprofan.com/\q>xprofan.com</a>",$50000000,10,10,80,25,%HWnd,9999,%hInstance,0)

einen Hyperlink erstellen.

Abgefragt wird mit hittest, aber es reagiert auch auf Getfocus() nicht auf CLicked().

RGH

... und wenn man unterschiedliche IDs verteilt (in meinem nachfolgenden Beispiel 9001 bis 9004), dann klappt es auch perfekt mit Clicked():

Code

cls
var hDlg& = create("Dialog", %hWnd, "Test", 10,10,300,200)
var x& = Control("SysLink","<a href=\qhttp://www.xprofan.com/\q>xprofan.com</a>",$50000000,10,10,80,25,hDlg&,9001,%hInstance,0)
var y& = Control("SysLink","<a>Hugo</a>",$50000000,10,50,80,25,hDlg&,9002,%hInstance,0)
var z& = Control("SysLink","<a>Toast</a>",$50000000,10,90,80,25,hDlg&,9003,%hInstance,0)
var ende& = Control("SysLink","<a>Ende</a>",$50000000,10,130,80,25,hDlg&,9004,%hInstance,0)
while 1
  waitinput
  if clicked(x&)
    Messagebox("Weblink: XProfan","Test",0)
    print gettext$(x&)
  elseif clicked(y&)
    Messagebox("Textlink: Hugo","Test",0)
  elseif clicked(z&)
    Messagebox("Textlink: Toast","Test",0)
  elseif clicked(ende&)
    break
  endif
endwhile  
end

Alles anzeigen

Gruß
Roland

PaRaDoX-Vision

Hallo,
Ich benutze eine andere Möglichkeit.
Aber diese hier gefällt mir gut.
"SysLink" hatte ich noch gar nicht auf dem Schirm.8O
Jetzt hakts bei dieser Lösung aber noch an der Transparenz.
Sieht man toll wenn man im Beispiel von RGH ein Control
mal auf das %hwnd legt. Mal schaun.

Anmerkung: Das SysLink-Control (quasi der Hyperlink in einer Windows-Anwendung) ist erst ab Windows XP vorhanden.

Gruß

Jetzt mitmachen!