XProfan

Declare Button&
Declare ToolTip&
Declare ToolInfobutton#
Declare Text#
WindowStyle 512 + 16 + 8 + 2
WindowTitle Test
Window 100,100-400,300
Cls

Proc UpdateToolTipText

    Parameters FeldHandle&,ToolTipHandle&,Text$
    Declare ToolInfoButton#
    Dim ToolInfoButton#,40
    Clear ToolInfoButton#
    Declare Text#
    Dim Text#,255
    Clear Text#
    String Text#,0 = Text$ + @Chr$(0)
    Long ToolInfoButton#,0 = 40
    Long ToolInfoButton#,4 = $0011
    Long ToolInfoButton#,8 = FeldHandle&
    Long ToolInfoButton#,12 = FeldHandle&
    Long ToolInfoButton#,36 = Text#
    ~TTF_SUBCLASS $0010
    ~TTF_IDISHWND $0001
    ~TTM_UpdateTipText $040C
    @SendMessage(ToolTipHandle&,$040C,0,ToolInfoButton#)
    Dispose ToolInfoButton#
    Dispose Text#

EndProc

Button& = @Create(Button,%hWnd,Klick Me,100,100,200,100)
ToolTip& = @Create(ToolTip,%hWnd,Button&,vor dem Klick)

WhileNot %Key = 2

    WaitInput

    If %GetFocus = Button&

        UpdateToolTipText Button&,ToolTip&,nach dem Klick

    EndIf

    @SendMessage(ToolTip&,1052,0,0)
    TTM_POP

EndWhile

/../Function-References/XProfan/end/'>End