MessageDLG

[azat]

Кто-нибудь знает как заставить функцию MessageDLG вызываться с русскими словами: "да" и "нет" вместо "Yes" и "NO".
и как запихнуть текст в заголовок сообщения?

[Stilet]

Ну есть экстремальный вариант: изменить содержимое массива ButtonNames в модуле Dialogs на русские подписи

Но я лично не рекомендую.

[mihali4]

А может, просто использовать MessageBox ?
Там все по-русски...

[Terran]

MessageBox(Handle, 'Текст','Заголовок', 68);

[Rahim1993]

C:\Program Files\Borland\Sourse\Vcl найди в этой папке ярлык Consts, перенеси этот ярлык в папку со своей программой, открой этот ярлык, и русифицируй свою программу.

[Alter]

Вот пример.

Пользовать так например можно:

procedure TForm1.FormCreate(Sender: TObject);
Const Zagolovok :String = 'Cаption';
      Text :String = 'Messages...';
begin
 IF MessageBox(handle, PChar(Text), PChar(Zagolovok),
               MB_YESNO + MB_ICONQUESTION	)=mrYes Then
             {тип кнопок} {иконка в диалоге}
 begin
  { Что-то делаем }
 end;
end;

Коды типа кнопок для него(см. в справке Delphi о MessageBox):

MB_ABORTRETRYIGNORE
MB_OK
MB_OKCANCEL
MB_RETRYCANCEL
MB_YESNO
MB_YESNOCANCEL

Иконки к нему:

MB_ICONEXCLAMATION,MB_ICONWARNING
MB_ICONINFORMATION, MB_ICONASTERISK
MB_ICONQUESTION,
MB_ICONSTOP,
MB_ICONERROR,
MB_ICONHAND.

Типы результатов(Modalresult):

mrNone
mrOk
mrCancel
mrAbort
mrRetry
mrIgnore
mrYes
mrNo
mrAll
mrNoToAll
mrYesToAll

Всё теперь понятно будет.

[D@rk M@k]

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

C:\Program Files\Borland\Sourse\Vcl найди в этой папке ярлык Consts, перенеси этот ярлык в папку со своей программой, открой этот ярлык, и русифицируй свою программу.

Я сделал как вы написали но не получается. Выводит ошибку
[Pascal Fatal Error] Project1.dpr(5): F2051 Unit GraphUtil was compiled with a different version of Consts.SInvalidColorString.

Почему? Можно пример.

[Stilet]

D@rk M@k

А чем ответ Михалыча не катит?

[azat]

для удобопользования написал

function MsgDlg(handle:HWnd;Title,Msg:string; const Btns,Icon:integer):integer;
begin
result:=MessageBox( handle, PChar(Title), PChar(Msg),Btns + Icon );
end;

[D@rk M@k]

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

А чем ответ Михалыча не катит?

Ответ Михалыча катит. Просто хотел и тот вариант попробовать.