Nascondi nella statusbar
''hint into statusbar
$include "rapidq.inc"
$typecheck on
declare sub showhint(hint as string)
Create form as qform
onhint=showhint
create Button1 as QButton
Caption="Button1"
Hint="hint Button1"
Left=6
Top=6
end create
create Button2 as QButton
Caption="Button2"
Hint="hint button2"
Left=6 Top=36
end create
create Button3 as QButton
Caption="Button3"
Hint="hint button3"
Left=6
Top=66
end create
create Statusbar as QStatusbar
simplepanel=True
end create
end create
form.showmodal
sub showhint(hint as string)
statusbar.simpletext=hint
end sub
|