На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
procedure TForm1.Button1Click(Sender: TObject); begin //начало if edit1.Text <> '' then form2.show //Если поле не пустое, вызываем форму 2 else // в противном случаи showmessage('введите свое имя'); // выводим сообщение end; // Конец
Часто вижу в группе один и тот же вопрос... Как запретить ввод символов в Edit? в этом маленьком уроке, мы научимся ставить запрет на ввод некоторых символов, букв, и цифр.
И так, Бросим на Форму Edit, выберем свойство OnKeyPress (см. рисунок) создадим событие и пропишем следующий код:
Код
if Key in ['A'..'Z']+['a'..'z']+['`']+['~']+['@']+['/']+[',']+['.']+['Ё']+['ё'] then Key:=#0;
|