Autor | Thema: Quickinfo | | Datum:22.08.02 16:21 
(martin_pohl@msn.com) | |
Hallo!
Wie kriege ich es hin, eine Art Quickinfo anzuzeigen, wenn der Cursor über einem Button ist. Mit Quickinfo meine ich sowas wie bei Links im Internet.
|
| | Datum:22.08.02 16:24 
(schmidts@flat2serv.de) | |
Tooltip's ;) Folgenden Code am Anfang Deines Programm's (am besten in einer INC) reinschreiben, danach den Tooltip setzen:
Button%=CreateButton ...
SetToolTip Button%, "Tooltip"
"
Def InitCommonControlsEx (1) !"COMCTL32.dll","InitCommonControlsEx"
Declare ICC_Struct#
Declare ToolinfoButton#
Declare Text1#
Proc InitControls
Dim ICC_Struct#,8
Long ICC_Struct#,0=8
Long ICC_Struct#,4=$FFF
InitCommonControlsEx(ICC_Struct#)
Dispose ICC_Struct#
EndProc
Proc SetToolTip
declare text$,ButtonTip&,SA%
Let SA% = @CreateFont("MS Sans Serif",7,0,0,0,0)
Let ButtonTip&=@Control("tooltips_class32","",$D0000000,0,0,0,0,%Hwnd,1001,%HInstance)
sendmessage(ButtonTip&,1043,RGB(255,255,0),0)'BackColor Tooltip
sendmessage(ButtonTip&,1044,RGB(0,0,255),0)'ForeColor Tooltip
@SendMessage(ButtonTip&,1048,0,200)'Maximale Breite
@SendMessage(ButtonTip&,1027,3,330)'TimeOut PAR 4 = Timeout 330 ms
SetFont ButtonTip&,SA%
DELETEOBJECT Sa%
Dim ToolinfoButton#,40
Dim Text1#,255
Parameters Handle&,Text$
String Text1#,0=Text$
LONG ToolinfoButton#,0=40'Strukturgroesse
LONG ToolinfoButton#,4=$11'Flags
LONG ToolinfoButton#,8=Handle&
LONG ToolinfoButton#,12=Handle&
LONG ToolinfoButton#,36=Text1#'Text
@SendMessage(ButtonTip&,$0404,0,ToolInfoButton#)
Dispose ToolinfoButton#
Dispose Text1#
EndProc
"
|
| | Datum: 22.08.02 17:06 
(martin_pohl@msn.com) | |
Danke. Tooltips heißen die Dinger, jetzt weiß ich wieder etwas mehr. :-)
|
|
|