Hyperlink / Syslink Control

[Bangkok]

Du kannsr aber schon jetzt mit

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():

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

Gruß
Roland