Нужно типа ShowMessage,но не с

← →
Oleg Barsky (2003-10-17 10:40) [0]

Сабж

← →
ОХ (2003-10-17 10:41) [1]

MessageDlg

← →
Oleg Barsky (2003-10-17 10:44) [2]

ок

← →
REP © (2003-10-17 11:06) [3]

MassageBox

← →
clickmaker © (2003-10-17 11:34) [4]

> REP © (17.10.03 11:06) [3]
> MassageBox

Коробка для массажа ?

← →
Юрий Федоров © (2003-10-17 11:38) [5]

>>clickmaker © (17.10.03 11:34) [4]
Нет, массаж морды лица боксерскими перчатками ))

← →
mOOx_ © (2003-10-17 13:15) [6]

Кстати, MessageDlg пишет на кнопках yes/no, а как да/нет?

← →
AIDix © (2003-10-17 13:35) [7]

Сделай отдельное окно на этот случай :)

← →
KSergey © (2003-10-17 13:37) [8]

Сейчас я буду всех пленять совим умищем ;)
В ответ на [6] mOOx_ © (17.10.03 13:15)

unit MyMsg; interface uses Sysutils, Dialogs, Classes, Windows, Forms, Controls; procedure ShowMessageErr (const Msg: String); // ошибка (пользователя) procedure ShowMessagePrgErr (const Msg: String); // грубая ошибка в программе procedure ShowMessageWar (const Msg: String); // предупреждение procedure ShowMessageInf (const Msg: String); // информация function ShowMessageQst (const Msg: String; const DefaultBtn: TModalResult = mrYes // предустанавливаемый вариант ответа ): TModalResult; // вопрос с вариантами "Да", "Нет" procedure AbortWarr (const AMsg: String); implementation // ошибка procedure ShowMessageErr (const Msg: String); begin MessageBox (Screen.ActiveForm.Handle, PChar(Msg), PChar(Application.Title), MB_ICONSTOP + MB_OK); end; // ошибка в программе procedure ShowMessagePrgErr (const Msg: String); begin ShowMessageErr ("Ошибка в программе:"#13 + Msg); end; // предупреждение procedure ShowMessageWar (const Msg: String); begin MessageBox (Screen.ActiveForm.Handle, PChar(Msg), PChar("Предупреждение"), MB_OK + MB_ICONEXCLAMATION); end; // информация procedure ShowMessageInf (const Msg: String); begin MessageBox (Screen.ActiveForm.Handle, PChar(Msg), PChar("Сообщение"), MB_OK + MB_ICONINFORMATION); end; // вопрос с вариантами "Да", "Нет" // с возможностью установки кнопки по умолчанию: // если DefaultBtn = mrYes - уст. кнопка "Да", в противном случае - "Нет" // возвращает: mrYes или mrNo function ShowMessageQst (const Msg: String; const DefaultBtn: TModalResult = mrYes): TModalResult; var DefBtn: Word; begin if DefaultBtn = mrYes then DefBtn := MB_DEFBUTTON1 else DefBtn := MB_DEFBUTTON2; Result := MessageBox (Screen.ActiveForm.Handle, PChar(Msg), PChar("Вы уверены?"), MB_ICONQUESTION + MB_YESNO + DefBtn); end; // вызов ф-ции Abort но с выводом своего предупреждающего сообщения procedure AbortWarr (const AMsg: String); begin ShowMessageWar (AMsg); Abort; end; end.

← →
Zergling © (2003-10-20 07:43) [9]

KSergey © (17.10.03 13:37) [8]

А я какой умный :-). Всетаки полезно книжки почитать, там и напаролся я на эту штучку.

Application.MessageBox("Чего делать?", "Сообщение", MB_YESNOCANCEL);

Одна строчка и все делает как надо (все порусски говорит).
Подобный вопрос уже задовался не раз, может эту строчку пора в FAQ отправить?

> [3] REP © (17.10.03 11:06)
> MassageBox
>
>
> [4] clickmaker © (17.10.03 11:34)
>
> > REP © (17.10.03 11:06) [3]
> > MassageBox
>
>
> Коробка для массажа ?

=))))))))))))))))))

← →
bon (2003-10-20 10:42) [11]

if
Application.MessageBox(
"текст сообщения",
"заголовок окна",
MB_YESNOСАNCEL+MB_ICONQUESTION //кнопки + иконка окна
)=IDYES then //условие нажатия на кнопку

>А я какой умный :-).
У тебя случайно не Рус винда? Если бы у тебя дойч стояла то ты на кнопках бы увидел "Ya" и "Nein" и проч цурюк. А те кто имеет английскую увидят Yes и No. Так что не ответ на вопрос.

mOOx_ © (17.10.03 13:15) [6]
Кстати, MessageDlg пишет на кнопках yes/no, а как да/нет?
Как вариант: скидываешь в свой проект consts.pas ,правишь константы, переоткрываешь проект и делаешь билд - и чудо кнопки на русском :))

Нужно типа ShowMessage,но не с Найти похожие ветки