Вопрос № 57237: Добрый день эксперты.
Как устранить "вылетание" прграммы при нажатии клавиши backspace в пустом поле ввода. Прилагаю мою проверку на нажатие клавиш....Вопрос № 57271: Здавствуйте эксперты. Есть PageControl в нем несколько TabSheet (1,2,3,4 и т.д.). Как при помощи Button находящимся на TabSheet1 запустить TabSheet2, там выполняются действия, затем TabSheet3 и т.д. Как при помощи Timer (15 сек.) запустить ProgressBa...
Вопрос № 57.237
Добрый день эксперты.
Как устранить "вылетание" прграммы при нажатии клавиши backspace в пустом поле ввода. Прилагаю мою проверку на нажатие клавиш.
Приложение:
Отправлен: 30.09.2006, 17:21
Вопрос задал: hairbaton (статус: 3-ий класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Mexes
Здравствуйте, hairbaton!
Обычный Edit работает корректно, а XPEdit у меня нет. Поэтому дальше интуитивно.
Может, поставить проверку, что текст не пустой:
case ...
...
#8: if XPEdit.Text='' then Key:=#0;
...
end;
Ответ отправил: Mexes (статус: 3-ий класс)
Ответ отправлен: 30.09.2006, 18:04 Оценка за ответ: 5
Вопрос № 57.271
Здавствуйте эксперты. Есть PageControl в нем несколько TabSheet (1,2,3,4 и т.д.). Как при помощи Button находящимся на TabSheet1 запустить TabSheet2, там выполняются действия, затем TabSheet3 и т.д. Как при помощи Timer (15 сек.) запустить ProgressBar нужно показать, что время идёт? Если можно с кодами.
Отправлен: 30.09.2006, 22:25
Вопрос задал: SIR (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: din
Здравствуйте, SIR!
Если верно понял чего Вы хотите, то код в прикрепленном архиве. Писал в Делфи 7.
Удачи!
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Есть только одно зло - невежество, и только одно благо - знания
Ответ отправил: din (статус: Практикант)
Ответ отправлен: 30.09.2006, 23:28