Поменять надписи на кнопках MessageDlg?

← →
Trifle (2005-10-17 15:41) [0]

Вообщем то сабж. Только не надо тыкать меня носом в Consts.pas. Мне это надо только в одном месте в одном проекте. Вообщем надо в runtimе поменять. Неужели придётся свой диалог рисовать?

← →
REA (2005-10-17 15:48) [1]

варианты:
1) Не использовать MessageDlg, а использовать системные аналоги.
2) Сделать библиотеку ресурсов .rus

← →
Trifle (2005-10-17 15:57) [2]

> Не использовать MessageDlg, а использовать системные аналоги.

можно с этого места поподробней плиз или урл какой?

← →
Trifle (2005-10-17 16:06) [3]

Речь идёт о MessageBox? Но всё равно мне нужно поменять надписи на кнопках, в MessageBox такой возможности я не нашёл :(

← →
Leonid Troyanovsky © (2005-10-17 16:22) [4]

> Trifle (17.10.05 16:06) [3]
> Речь идёт о MessageBox? Но всё равно мне нужно поменять
> надписи на кнопках, в MessageBox такой возможности я не
> нашёл :(

Зависит от. Если про локализацию, то, скажем, MessageBoxEx.
Если произвольно, то перед MessageDlg сделать, например,
главной форме PostMessage WM_USER, в обработчике которого:
FindWindow(Ex) & WM_SETTEXT.

--
Regards, LVT.

← →
Германн © (2005-10-17 16:27) [5]

Ну если уж так далеко зашло дело, то File->New... Dialogs.
И пиши на кнопках всё, что хошь.

← →
Игорь Шевченко © (2005-10-17 17:28) [6]

Leonid Troyanovsky © (17.10.05 16:22) [4]

> Если про локализацию, то, скажем, MessageBoxEx.

Оно, я извиняюсь, никогда не работало - MessageBoxEx с указанием последнего параметра. Да и причина проста - в Win32k.sys ресурсы на одном языке всегда были.

← →
REA (2005-10-17 17:39) [7]

А на что надо поменять?

MessageDlg использует TMessageForm, которая создается в
function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons): TForm;

можно использовать эту функцию, найти кнопки и заменить текст.
См. исходники.

← →
REA (2005-10-17 17:41) [8]

Названия кнопок оттуда же:
ButtonNames: array[TMsgDlgBtn] of string = (
"Yes", "No", "OK", "Cancel", "Abort", "Retry", "Ignore", "All", "NoToAll",
"YesToAll", "Help");

← →
Leonid Troyanovsky © (2005-10-17 18:09) [9]

> Игорь Шевченко © (17.10.05 17:28) [6]

> > Если про локализацию, то, скажем, MessageBoxEx.

> Оно, я извиняюсь, никогда не работало - MessageBoxEx с указанием
> последнего параметра. Да и причина проста - в Win32k.sys

Никогда это - NT3.5-4.
В локализованной w2k, д.б., по-крайней мере, два - включая LANG_NEUTRAL.
Однако, проверять оное мня ломает.

--
Regards, LVT.

← →
Игорь Шевченко © (2005-10-17 18:39) [10]

Leonid Troyanovsky © (17.10.05 18:09) [9]

Я проверял - не работает :)

> Игорь Шевченко © (17.10.05 18:39) [10]

> Я проверял - не работает :)

Значит, нас снова надули.
http://support.microsoft.com/default.aspx?scid=kb;en-us;152670

--
Regards, LVT.

← →
antoxa2005 (2005-10-18 10:27) [12]

Есть такой файл в Dephi точно не помню, но что-то вроде Constants... меняешь там значения например Yes на ДА или Cancel на Отмена и т.д. и твоя Delphi при компеляции все устроит, и будут у тебя MessageDLG полностью на русском языке. Я сам пользуюсь уже давно... Если не найдешь файл то пиши на e-mail подробно отвечу.

я просто спер код messagedlg из dialogs.pas, перевел, добавил еще своей функциональности и счастливо пользуюсь.

А чем MessageBox из winAPI не устраивает???

Все модули со всеми переведенными константами давно уже лежат на http://polesoft.da.ru

Поменять надписи на кнопках MessageDlg? Найти похожие ветки