XProfan

Español

Manfred
Barei

¡Hola,

es posible el en una Programmstart para una Buttton eingestellten Tooltip beim Programmlauf nachträglich a ändern?

Wen el Button una otro Función erhält, se se auch el Tooltip ändern.

Gibt lo dafür una Message oder Conjunto Función, 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 Cita Zeilenweise Cita

Jörg
Sellmeyer

Am simpelsten wäre lo wohl así: Kompilieren Marca Separación 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 Cita Zeilenweise Cita

Frank
Abbing

Wenn du el Ganzen todavía una DestroyWindow spendierst, dürfte el Resourcenfrage auch erübrigt haben. Tooltipps son tan ebenfalls Controls.

20.10.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Nee, el funktioniert no. Dann taucht kein Tooltip mehr en

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

20.10.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Habs eben en Winspy geladen y festgestellt, daß lo wirklich auch sin Destroy en una Tip restos. Komische Sache el zwar super el Zweck erfüllt, pero yo schätze vlcht. regelt dies Windows ya en el Hintergrund, como uno cada Objeto como Button y Co sólo una TTip zuordnen kann?
Würde Yo a selber Punto una Button siempre otra vez erzeugen, así sería Yo sí logischerweise irgendwann veces sauviele Buttons besitzen y el Speicher en el Knie zwingen. No es así en TTIPS.
Also definitiv: Lo se sólo una Handle verbraten con el obigen Code.

20.10.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Das Yo auch getestet. Yo glaube, lo liegt daran, daß la ventana principal una TilTipWnd zugeordnet bekommt y darauf voluntad el texte para el Controls gepinselt, also no jedesmal neue Controls producido.
Sieht irgendwie unelegant de aber: riecht como Erdöl, schmeckt como Erdöl - hey el muß Erdöl ser!

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

20.10.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Scheint así como sería Windows el alten Tooltipp entsorgen, si una Neuer zugewiesen se. Ist doch Haga clic en Aceptar.

21.10.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Manfred
Barei

Sí, aber uno de hecho puede no 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 Cita Zeilenweise Cita

Rolf
Koch

Sí, aber uno de hecho puede no neuen zuweisen

¿Por qué? Praktischer gehts doch no, porque Usted erzeugst doch una neuen y dies incluso con (si willst) derselben Variable

21.10.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Kompilieren Marca Separación

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 es auch bastante nett :
Kompilieren Marca Separación

Proc SetTipTitle

    Parámetros TipCtl&,Icon&,Title$
    SendMessage(TipCtl&,1056,Icon&,Addr(Title$))TTM_SETTITLE

ENDPROC

Proc SetTipText

    Parámetros TipCtl&,Owner&,Ctl&,NewText$
    Declarar ToolInfo#
    Dim Toolinfo#,40
    Largo Toolinfo#,0  = 40
    Largo ToolInfo#,8  = Owner&
    Largo ToolInfo#,12 = Ctl&
    Largo ToolInfo#,36 = Addr(NewText$)
    SendMessage(TipCtl&,1036,0,ToolInfo#)TTM_UPDATETIPTEXT
    Disponer ToolInfo#
    SetTipTitle(Tip&,1,Un neue Information en +Time$(0)+:+left$(Time$(1),2))

ENDPROC

Cls
Declarar btn&,tip&
btn& = Crear(Button,%hwnd,Clic mich!,10,10,100,20)
tip& = Crear(ToolTip,%hwnd,btn&,Str$(&GetTickCount))

Mientras que 1

    WaitInput
    SetTipText(Tip&,%hwnd,Btn&,Letzter Clic en  : +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 Cita Zeilenweise Cita

Jörg
Sellmeyer

Ah! Der Andreas, muy schön. Tuve gestern auch todavía rumexperimentiert, aber siempre SendMessage para el falsche Handle geschickt. Deshalb funktionierte no. Besonders el zweite Ding es großartig!

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

21.10.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Und en XProfan 11 se folgendes reichen:

a: Ohne Tooltip-Überschrift
Kompilieren Marca Separación

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 Marca Separación

Cls
Declarar btn&, tip&, texto$
btn& = Crear(Button,%hwnd,Clic mich!,10,10,100,20)
tip& = Crear(ToolTip,%hwnd,btn&,Str$(&GetTickCount))

Mientras que 1

    WaitInput
    texto$ = Letzter Clic en  : +Time$(0)+:+left$(Time$(1),2)
    SetText Tip&, %hwnd, Btn&, texto$, 1, texto$

EndWhile