Конференция "Основная" » Как бы сделать лог действий в виде перечисления компонент [D7, WinXP]
 
  • Vlad Oshin © (21.05.08 11:48) [0]
    наподобие JCL
    те работаем с программой.
    Кликнули одну кнопку, отметили checkbox, Кликнули 2ю кнопку, сработала adoquery, в ней получилась ошибка.

    перехватили. Вывели все, что можно из нее выжать в лог.
    Еще бы хотелось записать факт кликания кнопки1, checkboxа, кнопки2 ..

    Как то на верхнем уровне перехватить все это дело(хотя бы onClick) для всех (хотя бы визуальных) компонент
  • Vlad Oshin © (21.05.08 12:08) [1]
    пока нашел вот такое:
    Но это без невизуальных

    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;
  • Vlad Oshin © (21.05.08 12:08) [2]
    пока нашел вот такое:
    Но это без невизуальных

    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;
  • Игорь Шевченко © (21.05.08 12:43) [3]
    ActionList.OnExecute проще
 
Конференция "Основная" » Как бы сделать лог действий в виде перечисления компонент [D7, WinXP]
Есть новые Нет новых   [134465   +2][b:0][p:0]