Учебник по Delphi 4

       

ActiveControl



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

    procedure TFormI.mnuEditCopyClick(Sender: TObject);


    begin


        Screen.ActiveControl.Perform(WM_COPY,0,0);


    end;

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



Свойство ActiveControl указывает на потомка TWinControl, имеющего в настоящий момент фокус ввода. Вы можете установить значение во время создания программы, определив, какой элемент будет иметь фокус ввода при инициализации формы. Назначение ActiveControl во время работы программы— установка фокуса ввода в поле с некорректно введенными данными. Приведенный ниже фрагмент кода позволяет проверить текст, введенный в элемент editCustName, перед закрытием формы.

procedure TDataEntryForm.FormCloseQuery(Sender: Tobject;


                             var CanClose: Boolean);


begin


    {Проверяем, введен ли текст в элемент.}


        if edtCustName.Text = ' ' then


        begin


            {Запрещаем закрытие.}


            CanClose:= False;


            (Устанавливаем фокус в поле с некорректными данными.)


            ActiveControl:= editCustName;


        end;


end;

Совет: Метод SetFocus потомков TWinControl устанавливает фокус ввода и обновляет свойство ActiveControl. Большинство событий передает параметр Sender своему обработчику. Sender определяет, какой элемент обнаружил событие и запустил обработчика.



Содержание раздела