Field.Focused : Boolean =
Установить, проверить фокус на объекте

Программист может в редакторе форм создать несколько объектов с идентичными именами. При установке True в это свойство, фокус устанавливается на первый видимый (в порядке создания в редакторе форм) объект. При установке False ничего не происходит.

При чтении этого свойства, True возвращается если фокус находится на одном из объектов с идентичным именем.

Пример:

Procedure OnCreate;
Begin
  // Фокус будет устанолен на кнопку Оk
  Ok.Focused := True;
  If Not Ok.Focused Or Cancel.Focused Then Raise('Error');

  // На кнопку Cancel будет установлен фокус. И соответственно снят с кнопки Ok.
  Cancel.Focused := True; 
  If Ok.Focused Or Not Cancel.Focused Then Raise('Error');

  // Фокус не будет снят, так как установка False игнорируется
  Cancel.Focused := False;
  If Not Cancel.Focused Then Raise('Error');     

  // Фокус будет снят, так как кнопка станет невидима
  Cancel.Visible := False; 
  If Cancel.Focused Then Raise('Error');     

  // Фокус не будет установлен, так как кнопка невидима
  Cancel.Focused := True; 
  If Not Cancel.Focused Then Raise('Error');       
End;

© RTIT