Angepinnt Hyperlink / Syslink Control

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Unsere Datenschutzerklärung wurde aktualisiert. Mit der Nutzung unseres Forums akzeptierst Du unsere Datenschutzerklärung. Du bestätigst zudem, dass Du mindestens 16 Jahre alt bist.

    • Du kannsr aber schon jetzt mit

      Quellcode

      1. 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().
      Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai.
      dieterzornow.gmxhome.de
    • ... und wenn man unterschiedliche IDs verteilt (in meinem nachfolgenden Beispiel 9001 bis 9004), dann klappt es auch perfekt mit Clicked():

      Quellcode

      1. cls
      2. var hDlg& = create("Dialog", %hWnd, "Test", 10,10,300,200)
      3. var x& = Control("SysLink","<a href=\qhttp://www.xprofan.com/\q>xprofan.com</a>",$50000000,10,10,80,25,hDlg&,9001,%hInstance,0)
      4. var y& = Control("SysLink","<a>Hugo</a>",$50000000,10,50,80,25,hDlg&,9002,%hInstance,0)
      5. var z& = Control("SysLink","<a>Toast</a>",$50000000,10,90,80,25,hDlg&,9003,%hInstance,0)
      6. var ende& = Control("SysLink","<a>Ende</a>",$50000000,10,130,80,25,hDlg&,9004,%hInstance,0)
      7. while 1
      8. waitinput
      9. if clicked(x&)
      10. Messagebox("Weblink: XProfan","Test",0)
      11. print gettext$(x&)
      12. elseif clicked(y&)
      13. Messagebox("Textlink: Hugo","Test",0)
      14. elseif clicked(z&)
      15. Messagebox("Textlink: Toast","Test",0)
      16. elseif clicked(ende&)
      17. break
      18. endif
      19. endwhile
      20. end
      Alles anzeigen

      Gruß
      Roland
      (Intel Duo E8400 3,0 GHz / 4 GB RAM / 250 GB HDD / ATI Radeon HD4770 512 MB / Windows Vista - ausgemustert zum Verkauf)
      AMD Athlon II X2 2,9 GHz / 8 GB RAM / 500 + 1000 GB HDD / ATI Radeon 3000 (onboard) / Windows 10(64) - XProfan X4


      http://www.xprofan.de