hints manipulieren

[markus lemcke]

hi,

habe folgendes probiert:

<pre>
<code><font size=3 face="Courier New"><font color="#0000FF"><b>var
</b></font>HintInfo : THintInfo;

<font color="#0000FF"><b>procedure </b></font>TForm1.FormCreate(Sender: TObject);
<font color="#0000FF"><b>var
</b></font>s: <font color="#0000FF"><b>string</b></font>;
readvz : <font color="#0000FF"><b>string</b></font>;
AColors: TStringList;
i,j: integer;
ini : tinifile;
<font color="#0000FF"><b>begin
</b></font>//Hint manipulieren
application.OnHint := ShowHint;
<font color="#0000FF"><b>end</b></font>;

<font color="#0000FF"><b>procedure </b></font>TForm1.ShowHint (sender:tobject);
<font color="#0000FF"><b>begin
</b></font>HintInfo.HideTimeout := 10000;
HintInfo.HintColor := clblue;
<font color="#0000FF"><b>end</b></font>;

</font>
</code></pre>

funzt aber nicht! stelle keine veränderung fest!
warum?

gruß

markus

[markus lemcke]

es geht auch so:

application.HintHidePause := 10000;

aber warum obiger code nicht tut interessiert mich schon! und dann würde ich noch gerne wissen, wie man so sprechblasen hints macht!
aber hier im forumnichts gefunden.

gruß

marku

[Andreas Kosch]

Hallo Markus,

&gt;aber warum obiger code nicht tut interessiert mich schon!

da HintInfo einfach nur als globale Variable deklariert wird, besteht keine Verbindung zu der THintInfo-Instanz, die die VCL intern verwendet. Die <b>TApplicationEvents</b>-Komponente stellt das Ereignis <B>OnHint</b> zur Verfügung. Dort kann man direkt auf den Inhalt und das Aussehen/Postion des Hintfenstere Einfluss nehmen, wobei man dort automatisch die "richtige" Instanz auf dem Tablett serviert bekommt. Das folgende Beispiel demonstriert einen Einsatzfall:
<pre>
procedure TForm1.ShowHint (var HintStr: string;
var CanShow: Boolean; var HintInfo: THintInfo);
begin
with HintInfo do
if HintControl = Label1 then
HintPos := HintControl.ClientToScreen (Point(HintControl.Width div 2, HintControl.Height div 2))
end;
</pre>
Ein anderes Beispiel für das Ändern der Schriftart etc. hat Borland in seinem <b>Delphi-FAQ</b> unter der Überschrift <i>Article #16874: Changing the font in a hint window</i> beschrieben

[markus lemcke]

hi andreas,

ich sage es nur ungern, aber die zuweisung an application.onhint funzt nicht mit deiner showhint prozedur! habe ich nämlich probiert!
hier die delphi-hilfe:<br> <br>

procedure TForm1.DisplayHint(Sender: TObject);<br>
begin
StatusBar1.SimpleText := GetLongHint(Application.Hint);<br>
end;<br>

{ Hier ist die Ereignisbehandlungsroutine für OnCreate des Formulars. }<br>

{ Die Ereignisbehandlungsroutine für OnHint der Anwendung wird zur Laufzeit }<br>
{ zugewiesen, da Application im Objektinspektor nicht verfügbar ist. }<br>
procedure TForm1.FormCreate(Sender: TObject);<br>
begin<br>
Application.OnHint := DisplayHint;<br>
end;<br>

siehste! displayhint hat nur sender zum paranmeter sonst nichts!

gruß

marku

[Hagen Reddmann]

Einfach mal die Hilfe benutzen und schon findet man TApplication.OnShowHint(). Andreas meinte genau dieses Event.<br>
Schau Dir auch mal die TApplicationEvent-Komponente an, man sollte diese nutzen.

Gruß Hage

[markus lemcke]

hi hagen,

danke! so mcht es sinn! ich habe halt hier im forum einiges gefunden mit <b>OnHint</b> und das funzt eben nicht

gruß

marku