Delphi - база знаний


Как отловить смену фокуса для всех контролов?


Как отловить смену фокуса для всех контролов?





procedure TForm1.ActiveControlChange(Sender: TObject);
begin
  Caption := TScreen(Sender).ActiveForm.ActiveControl.Name;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.OnActiveControlChange := ActiveControlChange;
end;

Прислал p0s0l




Начало  Назад  Вперед



Книжный магазин