Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi | im Hint anzeigen (https://www.delphipraxis.net/137883-%7C-im-hint-anzeigen.html)

jfheins 30. Jul 2009 14:30

Re: | im Hint anzeigen
 
Zitat:

Zitat von himitsu
toll, den weiß ich jetzt auch nicht :oops: ... nur nach was soll ich da suchen?

http://de.wikipedia.org/wiki/Senkrechter_Strich ;) :mrgreen:

himitsu 30. Jul 2009 15:01

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:

himitsu 30. Jul 2009 16:17

Re: | im Hint anzeigen
 
@TeronG:
Delphi-Quellcode:
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 deine Variante verbaut, auch wenn ich erst versucht hatte den ToolTip direkt per Aufruf anzuzeigen und mich wunderte waru nix angezeigt wird

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:

TeronG 30. Jul 2009 16:42

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:

Zitat von himitsu
:wall: wie soll man nur auf sowas kommen? :oops:

Genau!! voll unlogisch :evil: (währe ich (auch) nieeee drauf gekommen :oops: Kopf->Tisch)

himitsu 30. Jul 2009 17:04

Re: | im Hint anzeigen
 
Zitat:

Zitat von TeronG
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.

dem ist bei mir so? :gruebel:
wird also wieder angezeigt

Zitat:

Zitat von TeronG
Btw: ist das Absicht, dass bei deiner Version der Titel "anders" dargestellt wird!?

wie "anders"?

Abgesehn von den Farben sollte sich nix ändern.

TeronG 31. Jul 2009 10:04

Re: | im Hint anzeigen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:

Zitat von himitsu
dem ist bei mir so? :gruebel:
wird also wieder angezeigt

ahhh ja ... :gruebel:
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:

Zitat von himitsu
wie "anders"?

Anderer schriftsatz, oder so :gruebel:
So, wie aufm bild im Anhang. :) ( Bild > 1000 Worte) ^^

EDIT: BTW: Schön sich wenigstens mal n bissel revanchieren zu können :mrgreen:

himitsu 31. Jul 2009 10:51

Re: | im Hint anzeigen
 
Zitat:

Zitat von TeronG
(auch wenn die "farbwahl" weggefallen ist ^^)

die kann man ja notfalls wieder reinmachen ... wollt mir nur die unnötigen Parameter und Nachrichten ersparen, da ich ja sowieso eigentlich fast ausschließlich den Style von Windows nutze, bzw. den, welchen sich der User eingestellt hat. :angel2:
> praktisch zwei Parameter angehängt und die 2 SendMessages wirder rein und das wäre wieder da

Zitat:

Zitat von TeronG
Zitat:

Zitat von himitsu
wie "anders"?

Anderer schriftsatz, oder so :gruebel:
So, wie aufm bild im Anhang. :) ( Bild > 1000 Worte) ^^

schon komisch ... hatte zwar auch irgendwie sowas vermutet und es gleich nochmal in D7 und D2009 getestet, aber da lief es ... mal schaun :gruebel:

[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:

TeronG 31. Jul 2009 11:23

Re: | im Hint anzeigen
 
hmm ... keine Ahnung, warum bei mir die Neue nicht geht ... aber halb so wild.

himitsu 31. Jul 2009 11:34

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:

ChrisE 31. Jul 2009 11:45

Re: | im Hint anzeigen
 
Zitat:

Zitat von TeronG
... dass bei deiner Version der Titel "anders" dargestellt wird!?

Kann ich bestätigen wie in Post 16.

Vista Ultimate 32 Bit
D2007

Gruß, Chris


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:19 Uhr.
Seite 2 von 3     12 3      

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