| |
| |
|
| - Página 1 - |
|
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 ▲ |
|
| |
|
|
| |
| |
| - Página 1 - |
|
Andreas
Miethe
 |
KompilierenMarcaSeparació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 :
KompilierenMarcaSeparació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 ▲ |
|
| |
|
|
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 ▲ |
|
| |
|
|
RGH | Und en XProfan 11 se folgendes reichen:
a: Ohne Tooltip-Überschrift
KompilierenMarcaSeparaciónCls
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: Mit Überschrift:
KompilierenMarcaSeparaciónCls
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
Saludo
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 ▲ |
|
| |
|
| |
| |
| - Página 2 - |
|
|
Manfred
Barei | Gracias Andreas   , genau así Yo quería lo sólo kam I, con el SendMessage no zurecht  .genau como Jörg. Posesiones etliches con el Prfellow Incluir WFHINTS.inc probiert. 
Aber Yo finde lo auch toll, el Roland se con el Sache befasst hatt y una Conjunto en el neuen Versión instalado ha, super 
grus |
|
| |
| 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 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Ok, entonces Yo auch todavía qué:
KompilierenMarcaSeparaciónCls
Declare btn&,tip&
btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
SendMessage(tip&,$0413,$FF00FF,0)
SendMessage(tip&,$0414,$FF00,0)
SetStyle tip&,$0000040
While 1
WaitInput
Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.10.2007 ▲ | |
|
| |
|
|
Thomas
Freier | |
| |
| |
| |
|
|
Jörg
Sellmeyer | Komisch, en me funktionierts
So muß lo entonces aussehen: |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.10.2007 ▲ |
|
| |
|
|
Rolf
Koch | Yo mich veces hingesetzt y mi Tipunit bisschen umgebaut. Zumindest tener Yo así veces angefangen. Muss en efecto todavía en el Arbeit, deswegen dauert lo todavía a Yo el Unit hochlade. Hier zumindest veces una Shot:
Como ya he dicho, todavía no fertig, pero la Aufruf se ungefähr entonces así aussehen:
KompilierenMarcaSeparacióntip.SetToolTip %HWND,BUTTON&,"<b><font-color:rgb(255,0,0)>Ist das nicht schön?</b></font><br>Geht wie immer mehrzeilig<br>Hier mit Verlauf","VERL.BMP"
TIP1&=&(0)e>
Yo implementiere sólo verschiedene Tags como en Html, en el Tip a gestalten. Skining es con el letzten Parámetro para una Bild.
@Thomas:
Usted wirst sicherlich en Deinem Sistema el Bubbletips abgeschaltet haben. So una Función ha z.B. XP-Antispy. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | ¡Hola Rolf,
Sehr schick! Sind el siempre todavía echte Tooltips, oder hast Es usted un propio Klasse producido y zeigst el Control OnMouseOver a?
Saludo
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 22.10.2007 ▲ |
|
| |
|
|
Thomas
Freier | @ Rolf:
mi Vermutung ging auch ya en el Richtung. Das Design Ventana- klassisch war no. |
|
| |
| |
| |
|
|
 | @Rolf
Schöööööön !  |
|
| |
| |
| |
|
|
Rolf
Koch | @Jörg: Sind todavía echte Tooltips
@Horst: Thx 
Dauert sí sowieso todavía bin grad sólo de el Maloche gekommen. Und en 3 Std. otra vez Bett |
|
| |
| |
| |
|
(1.571)
Deutsch
English
Français
Español
Italia