Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 240930 (2366)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Quickinfo
Martin Pohl
| 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.
Sven Schmidts
| 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 "
Martin Pohl
| Datum: 22.08.02 17:06 (martin_pohl@msn.com) |
Danke. Tooltips heißen die Dinger, jetzt weiß ich wieder etwas mehr. :-)

| Zurück zur Übersicht