XProfan

 $P+
SetErrorLevel 0
 $I E:PROGRAMMETOOLSXPROFAN 8.0LIBTOOLTIP.INC Für Tooltips
*** WICHTIG ! Pfad der TOOLTIP.INC anpassen ,sonst gehts nicht
 $H windows.ph *** wegen Neustart Button
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE BUTTON1&,CHECKBOX1&,BUTTON2&,hUser&,Funk&
WINDOWSTYLE 63
WINDOWTITLE Tooltipps
WINDOW 0100,150-300,100
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
BUTTON1& = CREATE(BUTTON,%HWND,Neustart,0012,0025,0070,0025)
BUTTON2& = CREATE(BUTTON,%HWND,Hilfe,0100,0025,0070,0025)
CHECKBOX1& = CREATE(CHECKBOX,%HWND,Beenden,0200,0035,0065,0015)
SETTOOLTIP %HWND,CHECKBOX1&,Windows Neustart ...,RGB(255,255,0),RGB(0,0,0),0,1000 *** die ,0, wäre normal !
Die Tooltipps funktionieren nur mit oberiger Zeile.
SETTOOLTIP %HWND,BUTTON1&,Windows Neustart ...,RGB(255,255,0),RGB(0,0,0),2,1000 *** die ,2, machts anscheinend aus
SETTOOLTIP %HWND,BUTTON2&,Hilfe zum Programm ...,RGB(255,255,0),RGB(0,0,0),2,1000
SETTOOLTIP %HWND,CHECKBOX1&,Beenden ...,RGB(255,255,0),RGB(0,0,0),2,1000
SENDKEY(%HWND,1)Wegen Tooltip
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&) *** Neustart BUTTON

        hUser& = UseDLL(Shell32.DLL)
        funk&  = ~GetProcAddress(hUser&,60)    Windows beenden
        call(Funk&,%HWnd)
        Freedll hUser& *** Dll freigeben

    ELSEIF GETFOCUS(CHECKBOX1&) mit CHECKBOX beenden (geht auch)

        ENDE%=1

    ELSEIF GETFOCUS(BUTTON2&) *** Hilfe BUTTON

        @MessageBox(Hilfe nicht vorhanden !
        Soll nur eine Tooltip Demo sein .,Info,64)***
        = Zeilen überspringen

    ENDIF

../../function-references/XProfan/wend/'>WEND

Code von Sven Schmidts - THX!
Declare ICC_Struct#
Declare ToolinfoButton#
Declare RKText1#
declare ButtonTip&,SA%,Delay%

Proc SetToolTip

    Parameters rkhwnd&,Handle&,RKText$,hwf&,txtf&,rkstil&,d%

    if equ(rkstil&,0)

        Let ButtonTip&=@Control(tooltips_class32,,$D000000,0,0,0,0,rkhwnd&,0,%hinstance)

    elseif equ(rkstil&,1)

        Let ButtonTip&=@Control(tooltips_class32,,$D000040,0,0,0,0,rkhwnd&,0,%hinstance)

    endif

    sendmessage(ButtonTip&,1043,hwf&,0)
    sendmessage(ButtonTip&,1044,txtf&,0)
    @SendMessage(ButtonTip&,1048,0,500)
    @SendMessage(ButtonTip&,1027,3,d%)
    DELETEOBJECT Sa%
    Dim ToolinfoButton#,40
    Dim RKText1#,500
    String RKText1#,0=RKText$
    LONG ToolinfoButton#,0=40Strukturgroesse
    LONG ToolinfoButton#,4=$11Flags
    LONG ToolinfoButton#,8=Handle&
    LONG ToolinfoButton#,12=Handle&
    LONG ToolinfoButton#,36=RKText1#Text
    @SendMessage(ButtonTip&,$0404,0,ToolInfoButton#)
    Dispose ToolinfoButton#
    Dispose RKText1#
    Return Buttontip&

ENDPROC