| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как

STANT ©   (2002-11-20 11:09:00) 

Не знаю, как у всех, а у меня заголовки и кнопки сообщений MessageDlg eng (Warning, Error, Yes, Cancel etc). Надо по-русски...

---

Ученик   (2002-11-20 14:21:00) [1]

>Игорь Шевченко © (20.11.02 14:01)
Я атеист :-)

---

Игорь Шевченко   (2002-11-20 14:01:00) [2]

Ученик © (20.11.02 13:03)

> Генофонд то с тараканами

Это ты в корне неправ. Генофонд - от бога.

---

Ученик   (2002-11-20 13:03:00) [3]

>Anatoly Podgoretsky © (20.11.02 12:15)
Генофонд то с тараканами, так что приходится, а за заразу ответишь :-)

---

Anatoly Podgoretsky   (2002-11-20 12:15:00) [4]

Ученик © (20.11.02 11:46)
Не трогай генофонд зараза :-)
Для этого у Борланда есть ITE

---

Игорь Шевченко   (2002-11-20 12:07:00) [5]

Ученик © (20.11.02 11:59)

Для полного счастья великой русификации MessageDlg
http://www.delphikingdom.com/treasury/hsdialogs.htm

---

Игорь Шевченко   (2002-11-20 12:05:00) [6]

Ученик © (20.11.02 11:59)

:-) Угу. Квиты.

---

Ученик   (2002-11-20 11:59:00) [7]

>Игорь Шевченко © (20.11.02 11:16)
А это яркий пример небезопасного кода (FindComponent) :-)

---

Игорь Шевченко   (2002-11-20 11:50:00) [8]

Ученик © (20.11.02 11:46)


> Delphi5\Source\Vcl\Consts.pas
>
> Перевести нужные сообщения и скопировать в Delphi5\Lib,
> перезапустить Delphi

Особенно хорошо это будет выглядеть при работе с пакетами

---

Ученик   (2002-11-20 11:46:00) [9]

>STANT © (20.11.02 11:09)
Delphi5\Source\Vcl\Consts.pas

Перевести нужные сообщения и скопировать в Delphi5\Lib, перезапустить Delphi

---

Smithson   (2002-11-20 11:28:00) [10]

есть картинки - константы MB_ICON.... посмотри в windows.pas

---

STANT   (2002-11-20 11:21:00) [11]

>а оно тебе надо?
А там картинок нету :)

>Игорь Шевченко
Интересный способ. Спасибо.

---

Игорь Шевченко   (2002-11-20 11:16:00) [12]

const
SMsgDlgYes = "Да";
SMsgDlgNo = "Нет";

function hs_MessageDlgPos(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
var
m_Form : TForm;
begin
m_Form := CreateMessageDialog(Msg, DlgType, Buttons);
with m_Form do
try
Caption := Application.Title;
HelpContext := HelpCtx;
Position := poMainFormCenter;
(FindComponent("Yes") as TButton).Caption:=SMsgDlgYes;
(FindComponent("No") as TButton).Caption:=SMsgDlgNo;
Result := ShowModal;
finally
Free;
end;
end;


---

SottNick   (2002-11-20 11:12:00) [13]

а оно тебе надо?
application.messagebox мало?

---

Наверх