Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Сен

Поменять язык надписи в сообщениях

Posted by micher under Delphi

Как изменить надписи кнопок в сообщениях? Чтобы вместо 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 is TButton) then

     begin

       dlgButton := TButton(aMsgDlg.Components);

       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;