XProfan

Français

Jörg
Sellmeyer

chez den BalloonTips gibt es plusieurs Opportunités pourquoi vous erscheinen ou bien pas.
si dans qui Registry sous:
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced
qui DW-Eintrag EnableBalloonTips vorhanden ist, richtet sich Windows pour diesem Wert (1/0).
si qui Eintrag pas vorhanden ist, volonté Balloontips angezeigt.
cette Code permet cela Lecture/Anlegen cet Wertes et qui Einstellung, si Balloontips angezeigt volonté ou bien pas.
là cela une Einsellung dans qui Registry ist, chez qui sich un Benutzer peut-être. quelque chose gedacht hat, serait je qui Einstellung pas ungefragt changement!
Kompilieren Marque Séparation

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