Как отловить смену фокуса для всех контролов?
Как отловить смену фокуса для всех контролов?
procedure TForm1.ActiveControlChange(Sender: TObject);
begin
Caption := TScreen(Sender).ActiveForm.ActiveControl.Name;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange := ActiveControlChange;
end;
Прислал p0s0l