Topic: Как перевести контекстное меню всех таблиц?
В контекстном меню таблиц пункты имеют английские надписи:
Find, Copy cell, Copy row, Copy all, Show record.
Для перевода на русский язык этих надписей можно использовать такой скрипт:
Frm_1.TableGrid_1.dbPopupMenu.Items.Find('Find').Caption := 'Найти';
Frm_1.TableGrid_1.dbPopupMenu.Items.Find('Copy cell').Caption := 'Копировать значение в ячейке';
Frm_1.TableGrid_1.dbPopupMenu.Items.Find('Copy row').Caption := 'Копировать строку';
Frm_1.TableGrid_1.dbPopupMenu.Items.Find('Copy all').Caption := 'Копировать все строки';
Frm_1.TableGrid_1.dbPopupMenu.Items.Find('Show record').Caption := 'Показать запись';
Но, этот скрипт работает только по конкретной таблице конкретной формы.
Каким образом можно сделать перевод контекстного меню сразу по всем таблицам всех форм?