-
наподобие JCL те работаем с программой. Кликнули одну кнопку, отметили checkbox, Кликнули 2ю кнопку, сработала adoquery, в ней получилась ошибка.
перехватили. Вывели все, что можно из нее выжать в лог. Еще бы хотелось записать факт кликания кнопки1, checkboxа, кнопки2 ..
Как то на верхнем уровне перехватить все это дело(хотя бы onClick) для всех (хотя бы визуальных) компонент
-
пока нашел вот такое: Но это без невизуальных
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;
-
пока нашел вот такое: Но это без невизуальных
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;
-
ActionList.OnExecute проще
|