XProfan

Italia

Jörg
Sellmeyer

Bei den BalloonTips gibt es mehrere Möglichkeiten warum sie erscheinen oder nicht.
Wenn in der Registry unter:
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced
der DW-Eintrag EnableBalloonTips vorhanden ist, richtet sich Windows nach diesem Wert (1/0).
Wenn der Eintrag nicht vorhanden ist, werden Balloontips angezeigt.
Dieser Code ermöglicht das Auslesen/Anlegen dieses Wertes und die Einstellung, ob Balloontips angezeigt werden oder nicht.
Da das eine Einsellung in der Registry ist, bei der sich ein Benutzer evtl. etwas gedacht hat, würde ich die Einstellung nicht ungefragt ändern!
Kompilieren Markieren Separieren

Proc AreBalloonTipsActive

    Declare f%,t%
    f% = Set(Errorlevel,0)
    ErrorLevel auf Null, damit es keine Fehlermeldung gibt, wenn der Eintrag nicht vorhanden ist.
    t% = Val(ReadIni$(HKEY_DW_1,SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced,EnableBalloonTips))
    Set(Errorlevel,f%)
    return t%

EndProc

Proc ActivateBalloonTips

    mit a% = 1 werden Balloontips aktiviert, mit 0 deaktiviert
    Parameters a%
    WriteIni HKEY_DW_1,SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced,EnableBalloonTips = Str$(a%)
    SendMessage($FFFF,$1A,0,0)
    die Registry wird aktualisiert und das System auf den neuesten Stand gebracht

EndProc

SubProc Create.BalloonTip

    Parameters hwnd&,hparent&,Text$
    Declare h&
    h& =  Create(ToolTip,hwnd&,hparent&,Text$)
    SetStyle h&,$0000040
    das ist der BalloonStyle
    Return h&

EndProc

Cls
Declare btn&,tip&,tip1&
btn& = Create(Button,%hwnd,Klick mich!,10,100,100,20)
tip& = Create(BalloonTip,%hwnd,btn&,Str$(&GetTickCount))
WindowTitle BalloonTips sind  + If(AreBalloonTipsActive() = 1,aktiv,nicht aktiv)

While 1

    WaitInput

    If Clicked(btn&)

        ActivateBalloonTips(Not(AreBalloonTipsActive()))
        WindowTitle BalloonTips sind  + If(AreBalloonTipsActive() = 1,aktiv,nicht aktiv)

    EndIf

Wend