Hint
Ein- und
Ausblendzeit definieren
|
Application.HintPause
:= 300; //
300 Millisekunden bevor der Hint gezeigt wird
Application.HintHidePause := 5000;
// Hint nach 5 Sekunden ausblenden |
Hint während des
Anzeigens ändern
Um den Hint kontinuierlich zu aktualisieren, um z.B. in einem
StringGrid für jede Zelle einen eigenen Hint zu setzen kann
folgendes gemacht werden: Procedure AppShowHint erstellen und
z.B. bei OnCreate diese für das Event OnShowHint definieren.
|
type
procedure AppShowHint(var
HintStr: String;
var CanShow: Boolean;
var HintInfo:
Controls.THintInfo);
.
.
.
procedure
TForm1.FormCreate(Sender: TObject);
begin
Application.OnShowHint := AppShowHint;
end;
procedure
TForm1.AppShowHint(var
HintStr: String;
var CanShow: Boolean;
var HintInfo: Controls.THintInfo);
begin
HintInfo.ReshowTimeout := 100;
end; |
Mehrere
Zeilen
|
Button1.Hint
:= 'erste Zeile' + #13
+ 'zweite Zeile' + #13
+ 'dritte Zeile'; |
Farbe ändern
|
Application.HintColor
:= clRed; //
Hintergrund rot |
|