Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

Можно ли изменить названия кнопок у MessageBox-а   Найти похожие ветки 

← →
TAV   (2004-04-05 20:02) [0]

Подскажите пожалуйста можно ли изменить названия кнопок у MessageBox-а? (Да, Нет, Отмена -> Заменить, Заменить все, Пропустить)

---

← →
хз ©   (2004-04-05 20:32) [1]

Можно, сделав несколько нестандартный, но вполне рабочий диалог:


function lala(Msg,MsgCaption:string; DlgType: TMsgDlgType; Buttons:TMsgDlgBtn):integer;
var
i:integer;
begin
with CreateMessageDialog(Msg, DlgType, [Buttons]) do
try
for i:=0 to ComponentCount-1 do
  if Components[i] is TButton then
begin
  if TButton(Components[i]).Caption = "Yes" then
  TButton(Components[i]).Caption := "Да";
  if TButton(Components[i]).Caption = "No" then
  TButton(Components[i]).Caption := "Нет";
  if TButton(Components[i]).Caption = "Cancel" then
  TButton(Components[i]).Caption := "Отмена";
  if TButton(Components[i]).Caption = "OK" then
  TButton(Components[i]).Caption := "Океей!";
end;

  Caption:=MsgCaption;
  Position := poMainFormCenter;
  Result := ShowModal;
finally
  Free;
end;
end;


Примерно так.

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.023 c