Как отключить подсказки во всём проекте?

[tech26]

Присвоение в свойство поля ShowHint значения false отключает подсказку.
А можно ли компактно отключить/включить подсказки ко всем полям проекта?
Как перебрать все поля проекта, заранее не зная их имена и количества?

[Timothy Clement]

Добрый день, ну при условии что поля не переименовывали вручную и известно хотя бы примерное количество - 100 или 1000 полей, можно так

Код: (delphi)

var
  i: Integer;
  aField: TM_Field;
begin
  for i:=1 to 1000 do
    begin
      aField := GetFieldByName('Field'+IntToStr(i));
      if aField <> nil then aField.ShowHint := not aField.ShowHint;
    end;
end.

При каждом нажатии на кнопку подсказка будет исчезать и появляться попеременно