Как поменять надписи в сообщениях?

[Vit@L]

Привет всем!
Подскажите пожалуйста как изменить надписи кнопок в сообщениях. Чтобы вместо Yes, No, Cancel были Да, Нет, Отмена. А еще как изменить заголовок этого сообщения, чтобы вместо Warning, было Внимание. Ну и так далее.
Заранее спасибо!

[beegl]

Изменить заголовок кнопки в MessageDlg

function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType;
   Buttons: TMsgDlgButtons; Captions: array of string): Integer;
 var
   aMsgDlg: TForm;
   i: Integer;
   dlgButton: TButton;
   CaptionIndex: Integer;
 begin
   { Create the Dialog }
   { Dialog erzeugen }
   aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
   captionIndex := 0;
   { Loop through Objects in Dialog }
   { Uber alle Objekte auf dem Dialog iterieren}
   for i := 0 to aMsgDlg.ComponentCount - 1 do
   begin
    { If the object is of type TButton, then }
    { Wenn es ein Button ist, dann...}
     if (aMsgDlg.Components[i] is TButton) then
     begin
       dlgButton := TButton(aMsgDlg.Components[i]);
       if CaptionIndex > High(Captions) then Break;
       { Give a new caption from our Captions array}
       { Schreibe Beschriftung entsprechend Captions array}
       dlgButton.Caption := Captions[CaptionIndex];
       Inc(CaptionIndex);
     end;
   end;
   Result := aMsgDlg.ShowModal;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if MyMessageDialog('How much...?', mtConfirmation, mbOKCancel,
     ['1', '2']) = mrOk then
     ShowMessage('"1" clicked')
   else
     ShowMessage('"2" clicked');
 end;

Для MessageDlg изменить константы из Consts.pas,

системный MessageBox 

var 
hHook : THandle = 0; 

procedure ChangeButtonCaption(Dialog : HWnd; ControlID : Integer; 
const Caption : string); 
begin 
SetWindowText(GetDlgItem(Dialog, ControlID), PChar(Caption)) 
end; 

function ChangeCaptions(nCode : Integer; 
wParam : WPARAM; 
lParam : LPARAM) : LRESULT; stdcall; 
begin 
Result := 0; 
if nCode = HCBT_ACTIVATE then begin 
ChangeButtonCaption(wParam, IDYES, "Да"); 
ChangeButtonCaption(wParam, IDNO, "Нет"); 
ChangeButtonCaption(wParam, IDCANCEL, "Отмена"); 
UnhookWindowsHookEx(hHook) 
end 
end; 

function MessageBoxRus(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; 
begin 
hHook := SetWindowsHookEx(WH_CBT, @ChangeCaptions, hInstance, GetCurrentThreadID); 
Result := MessageBox(hWnd, lpText, lpCaption, uType); 
end;

[Вадим Мошев]

ТС, вот то, что вам нужно. Информацию читайте в Readme-файле, там есть инструкция. Вообще, тема поднималась на форуме, где этот архив и был выложен, откуда я его скачал.

[Arigato]

MessageBox использовать.

[lux16]

Проще всего взять стандартный consts.pas поменять его и положить в папку с проектом, и по дефолту Delphi будет его брать с изменениями

[hon]

MessageBox(Form1.Handle,'Произошла бАльшая ошибка','Тревога!!!',MB_OK+MB_CANCEL+MBICONSTOP);

[Vit@L]

Сообщение от lux16

Проще всего взять стандартный consts.pas поменять его и положить в папку с проектом, и по дефолту Delphi будет его брать с изменениями

Не получилось. Поменял, положил в папку с проектом, не помогло.

Сообщение от hon

MessageBox(Form1.Handle,'Произошла бАльшая ошибка','Тревога!!!',MB_OK+MB_CANCEL+MBICONSTOP);

Отлично, то что надо. Спасибо большое!!!

[lux16]

Сообщение от Vit@L

Не получилось. Поменял, положил в папку с проектом, не помогло.


Отлично, то что надо. Спасибо большое!!!

У меня помогало так же Build All

[hon]

Сообщение от Vit@L

Отлично, то что надо. Спасибо большое!!!

Рекомендую почитать, как добавить еще кнопки, другие картинки (например знак вопроса вместо крестика): http://www.az-design.ru/index.shtml?...SB27MessageBox

[thoril3144857]

Сообщение от Вадим Мошев

ТС, Русский пакет для Делфи 7.zip (91.5 Кб, 10 просмотров).

Спасибо Вам большое