32 Урока Borland Delphi


Урок 08 - часть 11


(а таковыми являются все компоненты, входящие в дельфийскую библиотеку VCL), и метод ClassName, доступный для любого потомка класса базового TObject. А, поскольку класс TComponent, в свою очередь, является наследником класса TObject, то он доступен для всех компонент из библиотеки VCL.

Вернувшись к нашим примерам, мы можем заменить целую “кучу” методов двумя, реализующими события OnClick и OnDblClick для всех объектов сразу. Для этого можно скопировать все файлы из CONTROL2 в новый директорий CONTROL3 или использовать для работы уже имеющуюся на диске программу. Создадим стандартным образом методы ControlDblClick и ControlClick для какого-либо объекта (например, для Label1). Введем в них следующие строки:

procedure TForm1.ControlDblClick(Sender: TObject);

begin

Edit1.Text := 'Двойной щелчок на ' +

(Sender as TComponent).Name +

' (класс ' + Sender.ClassName + ')';

end;

procedure TForm1.ControlClick(Sender: TObject);

begin

Edit1.Text := 'Щелчок на ' +

(Sender as TComponent).Name +

' (класс ' + Sender.ClassName + ')';

end;

Теперь назначим данные методы всем событиям OnClick и OnDblClick, имеющимся у расположенных на форме объектов. Мы видим, что размер программы существенно сократился, а функциональность ее значительно выросла. В режиме выполнения после, например, щелчка на объекте CheckBox1 приложение будет иметь вид, изображенный на 8.

Итак, мы видим, что используя информацию периода выполнения, можно сделать программу очень гибкой и универсальной.
 
 
 
 
 
 
 
 
 
 

  • Заключение
  • В этом уроке мы рассмотрели, как управлять методами компонент во время выполнения программы. Кроме того, мы изучили, как что такое информация периода выполнения и научились использовать ее в целях создания гибких и универсальных приложений.




    - Начало -  - Назад -  - Вперед -