Eine gute Lösung könnte also in etwa so aussehen, aber eben programmatisch für alle Elemente mit Hints:
Delphi-Quellcode:
procedure TForm1.FormDeactivate(Sender: TObject);
begin
label1.showhint:=false;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
label1.ShowHint:=true;
end;