application.MessageBox

← →
Allexandr © (2007-02-20 00:59) [0]

Здравствуйте!
Если кто-нибудь знает - подскажите как можно использовать кнопки, которые стоят в application.MessageBox...
привожу такой пример.. при нажатии на кнопку главной формы написан такой код:

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

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

← →
Джо © (2007-02-20 01:03) [1]

if MessageBox (...) = mrOk then bla-bla-bla.

← →
S@shka © (2007-02-20 01:03) [2]

if (application.messageboх() = ID_OK) then begin ....

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

← →
Dmitrij_K (2007-02-20 01:05) [3]

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

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:22) [4]

Дополню
> Джо © (20.02.07 01:03) [1]

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

← →
RASkov (2007-02-20 01:31) [5]

Или еще такой вариант:
case MessageBox(Handle, "То ли Вы ввели?", "Внимание!", MB_ICONQUESTION or MB_YESNOCANCEL or MB_SYSTEMMODAL or MB_DEFBUTTON1) of idYes: ; idNo: ; idCancel: ; end;

← →
Германн © (2007-02-20 01:41) [6]

> RASkov (20.02.07 01:31) [5]

А зачем MB_SYSTEMMODAL?

← →
RASkov (2007-02-20 01:43) [7]

← →
_koha (2007-02-20 01:51) [8]

Удалено модератором

← →
ASoft (2007-02-20 05:59) [9]

> А зачем MB_SYSTEMMODAL?

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

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