ActiveControl

Это свойство возвращает объект TWinControl, имеющий фокус ввода. Обычно оно используется для реализации команд Copy, Cut и Paste для текстовых управляющих элементов. Следующий код, помещенный в обработчик TMenuItem, выполняет функцию Copy.

    procedure TFormI.mnuEditCopyClick(Sender: TObject);
    begin
        Screen.ActiveControl.Perform(WM_COPY,0,0);
    end;

Все, что происходит в мире Windows, базируется на сообщениях. Для выполнения какой-либо функции управляющие элементы часто отсылают сообщения самим себе. Так и в этом примере управление происходит путем передачи сообщения WM_COPY.

Содержание Назад Вперед