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
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
Comment