Привет всем!
Вообще сталкнулся с такой проблемой, заказчик сказал чтоб все меседжи вводили текст по центру. Что делать?
Решил так:
Залез в Dialogs.pas и добавил параметер к функции CreateMessageDialog.
Код следующий:
создаем пустое приложение с использованием VCL тупо форма и все.
находим в секции uses ссылку на Dialogs наводим мышь и удерживая Ctrl щелкаем левой кнопкой мыши.
после строки 912
добавил
Код:
TAlignTextMsgDlg = (amtLeft, amtCenter, amtRight);
в строке 927
сделал изменения
Код:
function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; DefaultButton: TMsgDlgBtn;
AlignText : TAlignTextMsgDlg = amtLeft): TForm; overload;
потом во всех после дующих функциях которые используют перегруженый метод CreateMessageDialog с DefaultButton: TMsgDlgBtn добавил доп параметер
AlignText : TAlignTextMsgDlg = amtLeft ну и естествено переделал вызов метода CreateMessageDialog
Код:
CreateMessageDialog(Msg, DlgType, Buttons, DefaultButton, AlignText)
а теперь изменяем код CreateMessageDialog
находим строку
добавляем
.
А да еще забыл надо сделать вот что:
найдите где декларируется массив
ModalResults
и добавляем следующий
Код:
AlignTexts : array[TAlignTextMsgDlg] of Integer = (taLeftJustify, taCanter, taRightJustify);
Теперь про компиляцию.
В меню project выбераем add to project выбераем наш dialogs.pas и тыкаем ok. Потом project->compile project. Затем открываем каталог где лежит dialogs.pas чтоб узнать где от на ведите на таб с заглавием dialogs должен показаться путь.
так зашли значит в папку находит там dialogs.dcu и копируем в (вверх вверх вверх ну вы поняли на конопочку тыкать надо) lib\ и все должно получиться.
О вот еще момент делфя сругается на несколько библиотек их надо подобным образом добавить в проетк откомпилить не внося изменении и также скопировать в lib\ и заработает потом можно использовать это так
Код:
MessageDlg('Изменили dialogs.pas', mtError, [mbOk], 0, mbOk, amtCenter);
Вообщем пробуйте и пишите что не так!! важно с работает ли у всех!