Скачать: CL | DM;

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]

> [6] Германн ©   (20.02.07 01:41)

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

---

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

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

---

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

> А зачем MB_SYSTEMMODAL?

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.029 c