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 и выход работают как ОК. Нужно, чтобы все было на своих местах. Как сделать?

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

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