MessageDlg на русский язык

← →
Polar (2008-04-09 23:49) [0]

Можно ли в MessageDlg сделать так чтоб на выбор было не Yes или No, а по-русски Да или Нет

← →
easy © (2008-04-09 23:54) [1]

>Polar(09.04.08 23:49) [0]

не поможет. они боятся диалогов с любыми кнопками..

← →
Anatoly Podgoretsky © (2008-04-09 23:58) [2]

> Polar (09.04.2008 23:49:00) [0]

MessageBox

← →
korneley © (2008-04-10 00:06) [3]

http://compfaq.ru/Question.aspx?id=b66d95a5-c5a4-4708-8498-1cd4b5416ead

← →
Amoeba © (2008-04-10 00:07) [4]

Можно! Русификация здесь:
http://polesoft.narod.ru/

← →
Polar (2008-04-10 00:18) [5]

А можно маленький примерчик использования MessageBox
Какие там могут быть параметры.
Мне нужно 2 кнопки - Да и Нет

← →
korneley © (2008-04-10 00:36) [6]

Эх... MessageBox (ручками). Затем F1 (пальцем). Затем "Delphi example" (мышью)

← →
Германн © (2008-04-10 00:42) [7]

> korneley © (10.04.08 00:36) [6]

> Затем F1

Зачем же употреблять такую ненормативную для начинающих лексику, F1?

← →
korneley © (2008-04-10 00:54) [8]

> Германн © (10.04.08 00:42) [7]

Ну, дык, некоторые птицы и птенцов за борт выкидывают, чтобы те летать учились :)

← →
korneley © (2008-04-10 01:03) [9]

А вот! Подарок (на День Космонавтики):
function MessageDlgR (const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint):word; const MsgTitle: array[mtWarning..mtConfirmation] of PChar = ("Предупреждение", "Ошибка", "Информация", "Подтверждение"); MsgIcon : array[mtWarning..mtConfirmation] of integer = (MB_ICONWARNING, MB_ICONERROR, MB_ICONINFORMATION, MB_ICONQUESTION); var Flags : integer; begin if Buttons = [mbAbort, mbRetry, mbIgnore] then flags := MB_ABORTRETRYIGNORE else if Buttons = [mbOk] then flags := MB_OK else if Buttons = [mbOk, mbCancel] then flags := MB_OKCANCEL else if Buttons = [mbRetry, mbCancel] then flags := MB_RETRYCANCEL else if Buttons = [mbYes, mbNo] then flags := MB_YESNO else if Buttons = [mbYes, mbNo, mbCancel] then flags := MB_YESNOCANCEL else flags := 0 ; case Application.MessageBox(PChar(Msg), MsgTitle[DlgType], MsgIcon[DlgType] + Flags)of IDOK :Result := mrOk; IDCANCEL:Result := mrCancel; IDABORT :Result := mrAbort; IDRETRY :Result := mrRetry; IDIGNORE:Result := mrIgnore; IDYES :Result := mrYes; IDNO :Result := mrNo; else Result := mrNone; end; end;
Остальное - напильником.

← →
Германн © (2008-04-10 01:04) [10]

> korneley © (10.04.08 00:54) [8]

Ну да. Жестокая правда жизни.

← →
Kolan © (2008-04-10 11:29) [11]

У меня аот тоже есть по сабжу кое что: unit KSystemResourceStrings; interface const OkID = 800; CancelID = 801; AbortID = 802; RetryID = 803; IgnoreID = 804; YesID = 805; NoID = 806; CloseID = 807; HelpID = 808; TryAgainID = 809; ContinueID = 810; function LoadResourceString(AModuleName: string; AnID: Cardinal): string; function LoadUser32ResourceString(AnID: Cardinal): string; function GetOkString: string; function GetCancelString: string; function GetAbortString: string; function GetRetryString: string; function GetIgnoreString: string; function GetYesString: string; function GetNoString: string; function GetCloseString: string; function GetHelpString: string; function GetTryAgainString: string; function GetContinueString: string; implementation uses Windows,SysUtils; var OkS: string; CancelS: string; AbortS: string; RetryS: string; IgnoreS: string; YesS: string; NoS: string; CloseS: string; HelpS: string; TryAgainS: string; ContinueS: string; function LoadResourceString(AModuleName: string; AnID: Cardinal): string; var Buffer: array[0&#133255] of Char; begin Result := ""; LoadString(GetModuleHandle(PAnsiChar(AModuleName)), AnID, Buffer, SizeOf(Buffer)); Result := StrPas(Buffer); end; function LoadUser32ResourceString(AnID: Cardinal): string; begin Result := LoadResourceString("user32.dll", AnID); end; function GetOkString: string; begin Result := OkS; end; function GetCancelString: string; begin Result := CancelS; end; function GetAbortString: string; begin Result := AbortS; end; function GetRetryString: string; begin Result := RetryS; end; function GetIgnoreString: string; begin Result := IgnoreS; end; function GetYesString: string; begin Result := YesS; end; function GetNoString: string; begin Result := NoS; end; function GetCloseString: string; begin Result := CloseS; end; function GetHelpString: string; begin Result := HelpS; end; function GetTryAgainString: string; begin Result := TryAgainS; end; function GetContinueString: string; begin Result := ContinueS; end; initialization OkS := LoadUser32ResourceString(OkID); CancelS := LoadUser32ResourceString(CancelID); AbortS := LoadUser32ResourceString(AbortID); RetryS := LoadUser32ResourceString(RetryID); IgnoreS := LoadUser32ResourceString(IgnoreID); YesS := LoadUser32ResourceString(YesID); NoS := LoadUser32ResourceString(NoID); CloseS := LoadUser32ResourceString(CloseID); HelpS := LoadUser32ResourceString(HelpID); TryAgainS := LoadUser32ResourceString(TryAgainID); ContinueS := LoadUser32ResourceString(ContinueID); end.

← →
azamatufa © (2008-04-10 12:59) [12]

Вот я внес изменения в Conts.pas, все "Yes" переделал на "Да"

эффекта нету ((

Помогите!!!

нет... а как? )))

> clickmaker © (10.04.08 13:09) [13]
Вы, эта, поосторожнее... А то, человек, небось, уже исходники Висты ищет :) Типа, VCL - "Vista Consumption (&) Linking" ;)

> Можно ли в MessageDlg сделать так чтоб на выбор было не
> Yes или No, а по-русски Да или Нет

Можно.

with CreateMessageDialog ("Текст сообщения", mtConfirmation, [mbYes,mbNo], 0, mbYes) do
try
(FindComponent("Yes") as TButton).Caption:="Да";
(FindComponent("No") as TButton).Caption:="Нет";
Result := ShowModal;
finally
Free;
end;

Игорь Шевченко

просто супер!
спасибо!

kornekey:
исходники Висты пока еще не нашел, весь нет перерыл.. ;)

← →
простой (2008-04-11 15:24) [18]

procedure TForm1.Button1Click(Sender: TObject); begin Application.MessageBox("Вы весь нет перекопали?" + #13#10 + "Хорошо рыли?", "Вопрос", mb_IconQuestion + mb_YesNo + mb_DefButton2); end;

MessageDlg на русский язык Найти похожие ветки