Form := TForm.Create(Application); with Form do try После "try" добавляем пару новых строчек: Form.Font.Name := 'Comic Sans MS'; // Шрифт Form.Font.Size:= 11; // Размер шрифта Шрифт можете указать любой. Если он не меняется, убедитесь, что вы правильно ввели название. Рекомендую заменить шрифт на Segoe UI или хотя бы Microsoft Sans Serif, поскольку по умолчанию там используется устаревший шероховатый "MS Sans Serif". И, наконец, в разделе uses вашего проекта найдите слово "Dialogs" и добавьте к нему единицу (Dialogs1). Так вы заставите проект использовать измененный модуль вместо оригинального и сохранить сам оригинал нетронутым. P. S. Нашел это решение и сразу же поделился. Вдоль и поперек не тестировал. Используйте на свой страх и риск.
- Идем по пути: C:\Program Files (x86)\Borland\Delphi7\Source\Vcl
- Берем оттуда файл "Dialogs.pas" и копируем в папку с нашим проектом.
- Переименовываем в "Dialogs1.pas"
- Открываем его и внутри меняем 10-ю строку с "unit Dialogs;" на "unit Dialogs1;"
- Ищем строку "Caption := 'Cancel';" и меняем на "Caption := 'Отмена';". Это изменит надпись на кнопке.
- Ищем чуть выше строку "function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;".
- Чуть ниже находим строки:
Form := TForm.Create(Application);
with Form do
try
После "try" добавляем пару новых строчек:
Form.Font.Name := 'Comic Sans MS'; // Шрифт
Form.Font.Size:= 11; // Размер шрифта
Шрифт можете указать любой. Если он не меняется, убедитесь, что вы правильно ввели название. Рекомендую заменить шрифт на Segoe UI или хотя бы Microsoft Sans Serif, поскольку по умолчанию там используется устаревший шероховатый "MS Sans Serif".
И, наконец, в разделе uses вашего проекта найдите слово "Dialogs" и добавьте к нему единицу (Dialogs1). Так вы заставите проект использовать измененный модуль вместо оригинального и сохранить сам оригинал нетронутым.
P. S. Нашел это решение и сразу же поделился. Вдоль и поперек не тестировал. Используйте на свой страх и риск.
