procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnShowHint := DoShowHint;
end;
{Le Hint du Label1 affichera l'heure en continu.}
procedure TForm1.DoShowHint(var HintStr: String ; var CanShow: Boolean;
var HintInfo: THintInfo);
begin
if HintInfo.HintControl = Label1 then begin
HintInfo.ReshowTimeout := 1000; // Périodicité de la màj.
Label1.Hint := TimeToStr( Time ); // Affiche l'heure par exemple.
end;
end;