![]() |
Re: | im Hint anzeigen
Zitat:
![]() |
Re: | im Hint anzeigen
:wall: wie soll man nur auf sowas kommen? :oops:
Aber der Artikel hat mir eine weitere Lösung aufgezeigt ... und zwar das Zeichen ¦ (ist auch im ANSI mit enthalten) ich werd' aber dennoch demnächst im OnEnter einiger Edits noch den BalloonTip mit anzeigen :angel: |
Re: | im Hint anzeigen
@TeronG:
Delphi-Quellcode:
hab jetzt deine Variante verbaut, auch wenn ich erst versucht hatte den ToolTip direkt per Aufruf anzuzeigen und mich wunderte waru nix angezeigt wird
Uses CommCtrl;
Procedure SetBalloonTip(Control: TWinControl; Const Title, Text: String; Icon: Integer = TTI_INFO); Var H: THandle; TI: TToolInfo; Begin H := CreateWindow(TOOLTIPS_CLASS, nil, WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP, 0, 0, 0, 0, Control.Handle, 0, HInstance, nil); If H <> 0 Then Begin SetWindowPos(H, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); TI.cbSize := SizeOf(TI); TI.uFlags := TTF_CENTERTIP or TTF_TRANSPARENT or TTF_SUBCLASS; TI.hwnd := Control.Handle; TI.lpszText := PChar(Text); GetClientRect(Control.Handle, TI.Rect); SendMessage(H, TTM_ADDTOOL, 1, Integer(@TI)); SendMessage(H, TTM_SETTITLE, Icon, Integer(Title)); End; End; hab jetzt alles auf das Nötige gekürzt - in der Unit CommCtrl war ja schon alles enthalten und muß nicht nochmal definiert werden - und die beiden Farben flogen auch raus ... brauch ja nur das aktuelle Windowsdesign :angel: - OK und String gefiehl mir auch besser als dieses PChar-PWideChar-Gemischmasch :nerd: - Prozedurname geändert Set statt Show, denn der wird ja nur gesetzt und nicht direkt angezeigt. Ja und es wird jetzt endlich alles schön angezeigt, ohne daß ich groß was ändern mußt :thumb: |
Re: | im Hint anzeigen
Bug (erinnert/)gefunden....
Wenn du mit der Maus so lange über einem (z.B.) Button bist, bis der Tip verschwindet taucht er bei erneutem drüberfahren nicht mehr auf. Btw: ist das Absicht, dass bei deiner Version der Titel "anders" dargestellt wird!? Zitat:
|
Re: | im Hint anzeigen
Zitat:
wird also wieder angezeigt Zitat:
Abgesehn von den Farben sollte sich nix ändern. |
Re: | im Hint anzeigen
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
Also solange das ding sich nicht selbst ausblendet kommt es auch bei mir wieder aber nicht wenn ich "die zeit übersehe". :gruebel: Egal... irgend was ist bei mir sowieso nicht mehr ganz koscher. Btw, Habe meine alte gleich mal durch deine Kurze Version ersetzt. :thumb: (auch wenn die "farbwahl" weggefallen ist ^^) Zitat:
So, wie aufm bild im Anhang. :) ( Bild > 1000 Worte) ^^ EDIT: BTW: Schön sich wenigstens mal n bissel revanchieren zu können :mrgreen: |
Re: | im Hint anzeigen
Zitat:
> praktisch zwei Parameter angehängt und die 2 SendMessages wirder rein und das wäre wieder da Zitat:
[add] hab grad nochmal mit deinem Code verglichen und der Titel hat sich eigentlich nicht geändert, außer das jetzt String statt PChar ist, aber intern sieht ein String ja auch wie ein PChar aus, also sollte sich da nix ändern :gruebel: |
Re: | im Hint anzeigen
hmm ... keine Ahnung, warum bei mir die Neue nicht geht ... aber halb so wild.
|
Re: | im Hint anzeigen
mein akiv laufendes XP ist auch etwas verkorkst ... vielleicht ja so verkorkst, daß es hier deswegen läuft? :lol:
(komme einach nicht zum neuinstallieren, dabei wollt ich mal alles auf Seven umlagern, welches ja eigentlich schon installiert ist) Aber vielleicht findet sich ja noch jemand, der es mal bei sich testet :angel: |
Re: | im Hint anzeigen
Zitat:
Vista Ultimate 32 Bit D2007 Gruß, Chris |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:19 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz