Hallo,
ich habe mit Tooltips herumexperimentiert. Ich habe jetzt eine Funktion, mit der ich Balloontips Überschrift, Text, Icon und Schriftart erstellen kann:
subproc Create.ToolTipEx
Parameters hwnd&,wnd&,tip$,head$,icon&,font&,flags%
var tt&=Create("ToolTip",hwnd&,wnd&,tip$)
case flags%:SetStyle tt&,GetStyle(tt&)+$40
case head$<>"":Sendmessage(tt&,$0420,icon&,Addr(head$))'TTM_SetTitle
case font&<>0:Sendmessage(tt&,$30,Font&,0)'WM_SetFont
Return tt&
endproc
Die ersten drei Parameters sind identisch mit Create("Tooltip",...), danach folgen Überschrift, Icon-Handle, Schriftart (Create("Font",...)) und ein Flag (1=BalloonTip, 0=normaler ToolTip).
Das funktioniert soweit gut, aber ich habe keine Ahnung, wie ich die Tooltips von Toolbar oder Statusbar ändern kann. Alternativ könnte ich auch mit der Funktionen einen Tooltip erzeugen, aber dazu bräuchte ich das Handle eines einzelnen Buttons in der Toolbar bzw. eines Abschnitts in der Statusbar.
Hat jemand eine Idee? Ich bin schon auf TB_GetToolTips gestoßen, nur kann man da keinen einzelnen Button als Parameter angeben und deshalb weiß ich nicht, was ich mit dem Handle anfangen soll.