| |
| |
|
| - Page 1 - |
|
Julian
Schmidt | Ciao,
ich würde gerne einen Tooltip auf einen Control aktivieren bzw. deaktivieren.
Bisher habe ich es erfolglos circa Showwindow, EnableWindow & Settext probiert.
Wie kann man das bewerkstelligen (ausgenommen vom Löschen\Wiedererstellen des Tooltips)?
CLS
Var static&=Create("Text",%hwnd,"",10,10,195,20)
Var button&=Create("Button",%hwnd,"Change Status",10,40,195,30)
Var ttip&=Create("Tooltip",%hwnd,%hwnd,"Tooltip-Text")
Var status&=1
Settext static&,Str$(status&)+" = Tooltip wird "+If(status&=1,"ein","aus")+"geblendet"
WhileNot iskey(27)
Waitinput
If getfocus(button&)
status&=Not(status&)
'Showwindow(ttip&,status&)
'EnableWindow(ttip&,status&)
SetText ttip&, If(status&=1,%hwnd,0),If(status&=1,%hwnd,0), "Tooltip-Text"
Settext static&,Str$(status&)+" = Tooltip wird "+If(status&=1,"ein","aus")+"geblendet"
Setfocus(%hwnd)
Endif
EndWhile
LG
Julian57 |
|
| |
| |
| |
|
 |
« Dieser Beitrag wurde als Lösung gekennzeichnet. » |
|
Jörg
Sellmeyer |
CLS
Var static&=Create("Text",%hwnd,"",10,10,195,20)
Var button&=Create("Button",%hwnd,"Change Status",10,40,195,30)
Var ttip&=Create("Tooltip",%hwnd,%hwnd,"Tooltip-Text")
Var status&=1
Settext static&,Str$(status&)+" = Tooltip wird "+If(status&=1,"ein","aus")+"geblendet"
WhileNot iskey(27)
Waitinput
If Clicked(button&)
status&=Not(status&)
SetText ttip&,%hwnd,%hwnd,If(status&, "Tooltip-Text","")
Settext static&,Str$(status&)+" = Tooltip wird "+If(status&=1,"ein","aus")+"geblendet"
Setfocus(%hwnd)
Endif
EndWhile
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 09.07.2012 ▲ |
|
| |
|
|
|
Julian
Schmidt | |
| |
| |
| |
|
(513)
Deutsch
English
Français
Español
Italia