XProfan

Italia

Manfred
Barei

Ciao,

ist es possibile den bei einem Programmstart per einen Buttton eingestellten Tooltip beim Programmlauf nachträglich zu ändern?

Wen der Button eine andere Funktion erhält, soll sich auch der Tooltip ändern.

Gibt es dafür eine Message oder Set Funktion, habe diesbezüglich nichts gefunden.

Grus
Manfred

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

20.10.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Am simpelsten wäre es wohl so: Kompilieren Markieren Separieren Cls Declare btn&,tip& btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20) tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount)) While 1 WaitInput tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
Windows XP SP2 XProfan X4 ... und hier mal was ganz anderes als Profan ...	20.10.2007 ▲ Vollständiges Zitat Absatzweise Citazione Zeilenweise Citazione

Frank
Abbing

Wenn du dem Ganzen noch ein DestroyWindow spendierst, potrebbe sich die Resourcenfrage auch erübrigt haben. Tooltipps sind ja ebenfalls Controls.

20.10.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Nee, das funktioniert nicht. Dann taucht kein Tooltip mehr auf

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

20.10.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Rolf
Koch

Habs eben in Winspy geladen und festgestellt, daß es wirklich auch ohne Destroy bei einem Tip bleibt. Komische Sache die zwar super den Zweck erfüllt, aber ich schätze vlcht. regelt dies Windows bereits im Hintergrund, da man jedem Objekt wie Button und Co nur ein TTip zuordnen kann?
Würde ich an selber Stelle ein Button immer wieder erzeugen, so würde ich ja logischerweise irgendwann mal sauviele Buttons besitzen und den Speicher in die Knie zwingen. Nicht so bei TTIPS.
Also definitiv: Es wird nur ein Handle verbraten mit dem obigen Code.

20.10.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Das habe ich auch getestet. Ich glaube, es liegt daran, daß das Hauptfenster ein TilTipWnd zugeordnet bekommt und darauf werden die texte per die Controls gepinselt, also nicht jedesmal neue Controls erzeugt.
Sieht irgendwie unelegant aus aber: riecht wie Erdöl, schmeckt wie Erdöl - hey das muß Erdöl sein!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

20.10.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Frank
Abbing

Scheint so als würde Windows den alten Tooltipp entsorgen, wenn ein Neuer zugewiesen wird. Ist doch in Ordnung.

21.10.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Manfred
Barei

Ja, aber man kann ja keinen neuen zuweisen

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

21.10.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Rolf
Koch

Ja, aber man kann ja keinen neuen zuweisen

Wieso? Praktischer gehts doch nicht, denn Du erzeugst doch einen neuen und dies sogar mit (wenn Du willst) derselben Variable

21.10.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Kompilieren Markieren Separieren

Proc SetTipText

    Parameters TipCtl&,Owner&,Ctl&,NewText$
    Declare ToolInfo#
    Dim Toolinfo#,40
    Long Toolinfo#,0  = 40
    Long ToolInfo#,8  = Owner&
    Long ToolInfo#,12 = Ctl&
    Long ToolInfo#,36 = Addr(NewText$)
    Sendmessage(TipCtl&,1036,0,ToolInfo#)TTM_UPDATETIPTEXT
    Dispose ToolInfo#

EndProc

Cls
Declare btn&,tip&
btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))

While 1

    WaitInput
    SetTipText(Tip&,%hwnd,Btn&,Letzter Klick um  : +Time$(0)+:+left$(Time$(1),2))

Wend

Das hier ist auch ganz nett :
Kompilieren Markieren Separieren

Proc SetTipTitle

    Parameters TipCtl&,Icon&,Title$
    Sendmessage(TipCtl&,1056,Icon&,Addr(Title$))TTM_SETTITLE

EndProc

Proc SetTipText

    Parameters TipCtl&,Owner&,Ctl&,NewText$
    Declare ToolInfo#
    Dim Toolinfo#,40
    Long Toolinfo#,0  = 40
    Long ToolInfo#,8  = Owner&
    Long ToolInfo#,12 = Ctl&
    Long ToolInfo#,36 = Addr(NewText$)
    Sendmessage(TipCtl&,1036,0,ToolInfo#)TTM_UPDATETIPTEXT
    Dispose ToolInfo#
    SetTipTitle(Tip&,1,Eine neue Information um +Time$(0)+:+left$(Time$(1),2))

EndProc

Cls
Declare btn&,tip&
btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))

While 1

    WaitInput
    SetTipText(Tip&,%hwnd,Btn&,Letzter Klick um  : +Time$(0)+:+left$(Time$(1),2))

Wend

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

21.10.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Ah! Der Andreas, sehr schön. Ich hatte gestern auch noch rumexperimentiert, aber immer Sendmessage an das falsche Handle geschickt. Deshalb funktionierte es nicht. Besonders das zweite Ding ist großartig!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

21.10.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Und in XProfan 11 wird folgendes reichen:

a: Ohne Tooltip-Überschrift
Kompilieren Markieren Separieren

Cls
Declare btn&, tip&, text$
btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))

While 1

    WaitInput
    text$ = Letzter Klick um  : +Time$(0)+:+left$(Time$(1),2)
    SetText Tip&, %hwnd, Btn&, text$

E

b: Mit Überschrift:
Kompilieren Markieren Separieren

Cls
Declare btn&, tip&, text$
btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))

While 1

    WaitInput
    text$ = Letzter Klick um  : +Time$(0)+:+left$(Time$(1),2)
    SetText Tip&, %hwnd, Btn&, text$, 1, text$

EndWhile