| |
| |
|
Manfred
Barei | Salut,
ist es possible den chez einem Programmstart pour une Buttton eingestellten Tooltip beim Programmlauf nachträglich trop changement? 
Wen qui Button une autre Funktion erhält, soll sich aussi qui Tooltip changement.
Gibt es pour une Message ou bien Set Funktion, habe diesbezüglich rien trouvé. 
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 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Am simpelsten wäre es wohl so:
KompilierenMarqueSéparationCls
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 ▲ | |
|
| |
|
|
Frank
Abbing | | si du dem Ganzen encore un DestroyWindow spendierst, pourrait sich qui Resourcenfrage aussi erübrigt avons. Tooltipps sommes oui également Controls. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Nee, cela funktioniert pas. ensuite taucht ne...aucune Tooltip plus sur  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 20.10.2007 ▲ |
|
| |
|
|
Rolf
Koch | Tricolore plan dans Winspy geladen et festgestellt, qui es wirklich aussi sans Destroy chez einem Tip bleibt. Komische l'affaire qui zwar super den Zweck erfüllt, mais je schätze vlcht. regelt ca Windows bereits im Hintergrund, là on chaque objet comment Button et Co seulement un TTip zuordnen peux?
Würde je à selber Stelle un Button toujours wieder erzeugen, so serait je oui logischerweise irgendwann la fois sauviele Buttons besitzen et den grenier dans qui Knie zwingen. pas so chez TTIPS.
alors définitif: Es wird seulement un Handle verbraten avec dem obigen Code. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | cela habe je aussi getestet. je crois, es liegt daran, qui cela Hauptfenster un TilTipWnd zugeordnet bekommt et puis volonté qui texte pour qui Controls peint, alors pas chaque fois neue Controls erzeugt.
Sieht irgendwie unelegant aus mais: riecht comment Erdöl, schmeckt comment Erdöl - hey cela doit Erdöl son! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 20.10.2007 ▲ |
|
| |
|
|
Frank
Abbing | Scheint so comme serait Windows den alten Tooltipp entsorgen, si un Neuer zugewiesen wird. Ist doch dans Ordre.  |
|
| |
| |
| |
|
|
Manfred
Barei | oui, mais il peut oui 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 ▲ |
|
| |
|
|
Rolf
Koch |
oui, mais il peut oui keinen neuen zuweisen
Pourquoi? Praktischer gehts doch pas, car Du erzeugst doch une neuen et ca sogar avec (si tu veux) derselben Variable  |
|
| |
| |
| |
|
|
Andreas
Miethe
 |
KompilierenMarqueSéparation
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
cela ici ist aussi entier gentil :
KompilierenMarqueSéparation
Proc SetTipTitle
Paramètres TipCtl&,Icon&,Title$
SendMessage(TipCtl&,1056,Icon&,Addr(Title$))TTM_SETTITLE
ENDPROC
Proc SetTipText
Paramètres TipCtl&,Owner&,Ctl&,NewText$
Déclarer ToolInfo#
Faible 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,une neue information um +Time $(0)+:+left$(Time $(1),2))
ENDPROC
Cls
Déclarer btn&,tip&
btn& = Créer(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Créer(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
Tandis que 1
WaitInput
SetTipText(Tip&,%hwnd,Btn&,dernier 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 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | Ah! qui Andreas, très joli. je hatte gestern aussi encore rumexperimentiert, mais toujours SendMessage à cela falsche Handle envoyé. c'est pourquoi funktionierte es pas. Besonders cela zweite Ding ist grandiose! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.10.2007 ▲ |
|
| |
|
|
RGH | et dans XProfan 11 wird folgendes reichen:
a: sans Tooltip-Überschrift
KompilierenMarqueSéparationCls
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$
Ee
b: avec Überschrift:
KompilierenMarqueSéparationCls
Déclarer btn&, tip&, text$
btn& = Créer(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Créer(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
Tandis que 1
WaitInput
text$ = dernier Klick um : +Time $(0)+:+left$(Time $(1),2)
SetText Tip&, %hwnd, Btn&, text$, 1, text$
Endwhile
Salut
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 21.10.2007 ▲ |
|
| |
|
(455)
Deutsch
English
Français
Español
Italia