MessageBox

← →
Николай В. (2003-07-08 11:08) [0]

Ув.мастера подскажите пожалуйста, как сделать, чтобы сообщение QForms.Application.MessageBox(...) было как модальная форма, т.е. не льзя было уйти с него на MainForm не нажав на кнопку?

Заранее благодарен.

← →
Radionov Alexey © (2003-07-08 11:13) [1]

API вызов, например:
MessageBox(MainForm.Handle,...,MB_APPLMODAL)

← →
NickBat © (2003-07-08 11:13) [2]

Application.MessageBox

← →
wl © (2003-07-08 11:13) [3]

Я сделал так: (скопировал из примера в помощи) и всё работает
QForms.Application.MessageBox("Hello, World", "Look", [smbOK]);

← →
Radionov Alexey © (2003-07-08 11:15) [4]

Сорри. Достаточно флаг MB_APPLMODAL воткнуть в параметр Flags у Application.Messagebox

← →
Николай В. (2003-07-08 11:17) [5]

Нет, использовать модуль Windows(именно в нем MB_APPLMODAL) нельзя, так как пишу прогу и под Kylix.

← →
Николай В. (2003-07-08 11:19) [6]

И к стати, пример:
QForms.Application.MessageBox("Hello, World", "Look", [smbOK]);
работает, но сообщение не модальное!
А как сделать модальное?

← →
wl © (2003-07-08 11:33) [7]

Ну не знаю тогда, попробуй ещё MessageDlg или ShowMessage...

← →
onix © (2003-07-08 11:44) [8]

MessageDlg, это как раз то что тебе нужно

← →
Николай В. (2003-07-08 12:04) [9]

Спасибо. Пойдет.
Но если исользовать модуль QDialogs под Win, то тоже самое, а под Linux все ок.

Используй функцию CreateMessageDialog. Это функция создаёт окно
сообщения в виде объекта формы, но не отображает его. Для
отображения используй обычные Show и ShowModal.Пример:

var
YourMess:TForm;
...
YourMess := CreateMessageDialog("Осторожно!",mtWarning,[mbOK]);
YourMess.Caption := "Предупреждение!";
YourMess.ShowModal;
...
YourMess.Free;//Иначе будет утечка памяти.Уничтожает объект,
после чего окно уже не сможет отображаться.

to Marat:

CreateMessageDialog содержится только в Dialogs, то есть Windows-функция

to wl

Sorry, с Kylix"ом не сталкивался, но, думаю, там по-любому
должно быть нечто подобное

MessageBox Найти похожие ветки