Событие OnGetText возникает всякий раз, когда программа обращается к полю НД с целью отображения его содержимого в любом визуализирующем компоненте, например TDBGrid. Программист в обработчике этого события должен поместить нужную строку в переменную Text соответсвующего объекта-поля.
Как видно из заголовка нашего примера в нижней сетки DBGrid2 ее 1-ый столбец должен содержать текст, составленный из значений 3-х уже существующих подстановочных объектов-полей tbMoveName, tbMoveAuthor и tbMovePublish набора данных tbMove. Напомним, что по умолчанию Delphi присваивает объекту-полю имя, полученное сцеплением имени НД - tbMove и имени поля - Name.
Чтобы реализовать такое составное поле, воспользуемся обработчиком события OnGetText объекта-поля tbMoveName набора данных tbMove.
В рассматриваемом случае строка Text объекта-поля tbMoveName получается объединением значений в полях tbMoveName, tbMoveAuthor и tbMovePublish.
Перейдите к форме модуля данных и вызовите редактор полей для НД tbMove. Щелкните на поле Name и откройте вкладку Events в окне инспектора объектов. Дважды щелкнув в правой части строки события OnGetText, напишите такой обработчик события:
procedureTDM.tbMoveNameGetText(Sender: TField;
varText: string;
DisplayText: boolean);