Вопрос и Ответ 35

35. Как использовать метку (Label) для передачи фокуса объекту?

Передачу фокуса, при помощи метки, можно осуществлять в двух случаях. При нажатии на клавиатуре определенной комбинации клавиш и при щелчке мышкой на метке.

В первом случае, необходимо определить комбинацию клавиш с помощью символа "&" в поле Caption (например: П&араметры => Alt+а). Во втором - передавать фокус при щелчке мышью на метке. Для того, чтобы одна процедура обрабатывала события от всех Ваших меток, необходимо присвоить ее событиям OnClick всех меток.

Передача фокуса будет работать, только, если правильно установлено свойство FocusControl.

Пример:

............

procedure TForm1.LabelClick(Sender: TObject);
begin

(Sender AS TLabel).FocusControl.SetFocus;