Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

application.MessageBox [D6]

Allexandr © (2007-02-20 00:59:00)
Здравствуйте!
Если кто-нибудь знает - подскажите как можно использовать кнопки, которые стоят в application.MessageBox...
привожу такой пример.. при нажатии на кнопку главной формы написан такой код:

if form3.ShowModal=mrOk then begin application.MessageBox(pchar(form3.Edit1.Text),'Ты ввел:',mb_okcancel); end;

нужно сделать так... при нажатии на кнопку главной формы выскакивает окно, в котором пользователь вводит в строку едит1 какую-либо инфу.. далее нажимает ок... при этом появляется мессадже бокс, который пишет что он ввел.. у него две кнопки.. ок и кансел..
мне нужно сделать, что бы при ок строка удит1 сохранялась, а при кансел - стиралась.
Что и где нужно написать, что бы обработать событие нажатия кнопок на мессадж боксе?
при таком коде обе кнопки (ок и кансел) только закрывают мессадж бокс, информация полученная от формы 3 остается при любом нажатии.
Извините, если не совсем внятно объяснил.
Спасибо!

ASoft (2007-02-20 05:59:00) [1]

> А зачем MB_SYSTEMMODAL?

появится поверх всех окон, или я не прав?

_koha (2007-02-20 01:51:00) [2]
Удалено модератором

RASkov (2007-02-20 01:43:00) [3]
> [6] Германн © (20.02.07 01:41)

Для разнообразия... Мож кому пригодится:)

Германн (2007-02-20 01:41:00) [4]

> RASkov (20.02.07 01:31) [5]

А зачем MB_SYSTEMMODAL?

RASkov (2007-02-20 01:31:00) [5]
Или еще такой вариант:
case MessageBox(Handle, 'То ли Вы ввели?', 'Внимание!', MB_ICONQUESTION or MB_YESNOCANCEL or MB_SYSTEMMODAL or MB_DEFBUTTON1) of idYes: ; idNo: ; idCancel: ; end;

Германн (2007-02-20 01:22:00) [6]
Дополню
> Джо © (20.02.07 01:03) [1]

if MessageBox (...) = mrOk then bla-bla-bla else tra-ta-ta;

Dmitrij_K (2007-02-20 01:05:00) [7]

> Что и где нужно написать, что бы обработать событие нажатия
> кнопок на мессадж боксе?

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/dialogboxes/dialogboxreference/dialogboxfunctions/messagebox.asp
Return Value

> в котором пользователь вводит в строку едит1 какую-либо
> инфу

InputBox
InputQuery

Джо (2007-02-20 01:03:00) [8]
if MessageBox (...) = mrOk then bla-bla-bla.

S@shka (2007-02-20 01:03:00) [9]
if (application.messageboх() = ID_OK) then begin ....

ID_OK - нажата Ok
ID_CANCEL - нажата Cancel

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »