Вопрос
Как отследить переход фокуса в приложении?
Ответ
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;
Leonid Troyanovsky
Copyright 
2000-2004 Сообщество Чайников
Контактная информация