XProfan

'Achtung! Das knallt andauernd! Testcode - auf eigene Gefahr einzusetzen!
 $H Messages.ph
Def &TTN_SHOW , -521
Struct NMHDR = hwndFrom&,idFrom&,code&
Declare NMHDR#
Dim NMHDR#,NMHDR

Proc GetNMHDRInfo

    Parameters b#
    NMHDR# = b#
    Dispose b#
    Var s$ = Str$(NMHDR#.hwndFrom&) + " " + Str$(NMHDR#.idFrom&) + " " +  Str$(NMHDR#.code&) + " " +  Str$(&gettickcount)
    Dispose NMHDR#
    SetText txt&,s$

EndProc

Cls
Var btn1& = Create("Button",%hwnd,"Test 1",100,100,100,30)
Var btn2& = Create("Button",%hwnd,"Test 2",210,100,100,30)
Var tt1& = Create("ToolTip",%hwnd,btn1&,"Test 1")
Var tt2& = Create("ToolTip",%hwnd,btn2&,"Test 2")
Var txt& = Create("Text",%hwnd,"",0,30,400,24)
UserMessages $10,~WM_NOTIFY

While 1

    WaitInput
    Print %hwnd,btn1&,tt1&,%notifycode,&lparam',"       "
    Locate 1,1

    If %umessage = $10

        Break

    ElseIf %umessage = ~WM_NOTIFY

        If (&wparam = btn1&) Or (&wparam = btn2&)

            GetNMHDRInfo(&lparam)

        EndIf

        'hier wundert mich, daß ich als Notifycode nur -12 erhalte.
        'eigentlich erwarte ich -521 für TTN_SHOW
        'Außerdem sollte dann &lparam ein Zeiger auf eine Struktur NMHDR sein
        'Die Werte darin sind aber für mich nicht in Einklang zu bringen mit dem,
        'was in der Api-Hilfe steht.
        'Wenn dieser Kommentar vor dem Funktionsaufruf steht, knallt es übrigens häufiger!

    EndIf

Wend

Disponer NMHDR#

Parameters b#
NMHDR# = b#
Dispose