Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Как отследить переход фокуса в приложении



procedure TForm1.AppControlChange(Sender: TObject);
begin
  if Sender is TScreen then
    Caption := TScreen(Sender).ActiveForm.ActiveControl.name;
end;

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

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011