Moin, Moin,
kurze Frage: Muss alle Hints in allen Controls aller Formulare ein- bzw. ausschalten. Dazu nutze ich folgenden Code ...
Delphi-Quellcode:
procedure Tfo~~.SetAllHints(Switch:Boolean);
var i,j : Integer;
begin
with Screen do
for i:=0 to FormCount-1 do
for j:=0 to Forms[i].ComponentCount-1 do
with Forms[i] do begin
if Components[j] is TButton then TButton (Components[j]).ShowHint:=Switch;
if Components[j] is TToolButton then TToolbutton(Components[j]).ShowHint:=Switch;
//..
//..
end
end;
Da insgesamt über ein Dutzend verschiedene Komponententypen zu berücksichtigen sind, ist das vorstehende Verfahren ziemlich blöd - geht es auch einfacher und universeller?