| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

InputBox

MVN ©   (2008-05-26 09:53:00) 

Добрый день! Почему не работает кнопка Cancel в InputBox?
Вот код:
try
    dDateEnd:= StrToDate(InputBox('********', '********',DateToStr(Now)));
   except
     Application.MessageBox(PChar('******'),PChar(Application.Title),MB_ICONINFORMATI ON+MB_OK);
     exit;
   end;

---

sniknik   (2008-05-26 10:38:00) [1]

неправда. читать хелп. все и так на своих местах.

---

MVN   (2008-05-26 10:29:00) [2]

кнопки cancel и выход работают как ОК. Нужно, чтобы все было на своих местах. Как сделать?

---

ЮЮ   (2008-05-26 10:22:00) [3]

что значит не рпботает?
возвращает DateToStr(Now), чтобы ты не вводил в поле ввода. Как и положено.

---

Наверх