Форум: "Начинающим";
Текущий архив: 2008.06.22;
Скачать: [xml.tar.bz2];

Вниз

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

← →
MVN ©   (2008-05-26 09:53) [0]

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

---

← →
ЮЮ ©   (2008-05-26 10:22) [1]

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

---

← →
MVN ©   (2008-05-26 10:29) [2]

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

---

← →
sniknik ©   (2008-05-26 10:38) [3]

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

---

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

Форум: "Начинающим";
Текущий архив: 2008.06.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.116 c