[artzub]

Привет всем!
Вообще сталкнулся с такой проблемой, заказчик сказал чтоб все меседжи вводили текст по центру. Что делать?

Решил так:

Залез в Dialogs.pas и добавил параметер к функции CreateMessageDialog.

Код следующий:
создаем пустое приложение с использованием VCL тупо форма и все.
находим в секции uses ссылку на Dialogs наводим мышь и удерживая Ctrl щелкаем левой кнопкой мыши.
после строки 912
добавил

Код:

1	TAlignTextMsgDlg = (amtLeft, amtCenter, amtRight);

в строке 927
сделал изменения

Код:

1 2 3

function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType;   Buttons: TMsgDlgButtons; DefaultButton: TMsgDlgBtn;   <font color="Red">AlignText : TAlignTextMsgDlg = amtLeft</font>): TForm; overload;

потом во всех после дующих функциях которые используют перегруженый метод CreateMessageDialog с DefaultButton: TMsgDlgBtn добавил доп параметер AlignText : TAlignTextMsgDlg = amtLeft ну и естествено переделал вызов метода CreateMessageDialog

Код:

1	CreateMessageDialog(Msg, DlgType, Buttons, DefaultButton<font color="#ff0000">, AlignText</font>)

а теперь изменяем код CreateMessageDialog
находим строку

Код:

1	Alignment =

добавляем

Код:

1	AlignTexts[AlignText]

.
А да еще забыл надо сделать вот что:
найдите где декларируется массив ModalResults
и добавляем следующий

Код:

1	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\ и заработает потом можно использовать это так

Код:

1	MessageDlg('Изменили dialogs.pas', mtError, [mbOk], 0, mbOk, amtCenter);

Вообщем пробуйте и пишите что не так!! важно с работает ли у всех!