Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты! Подскажите мне пожалуйста, не могу понять. У меня есть компонент Edit и я написал такой код:

procedure Tmodul1.Edit6Change(Sender: TObject);
begin
if edit6.Text='педагог' then
image5.Visible:=true else
edit6.Color:=clred;
end;

И когда я вывожу слово "педагог" для проверки, тогда форма edit-а становиться красным и картинка тоже показывается. А мне нужно чтоб форма edit-a становилось красным, только тогда когда введенная слово неправильно. Где здесь ошибка, подскажите мне пожалуйста. Заранее большое спасибо!!!

Вопрос задал: Beknur (статус: Посетитель) Вопрос отправлен: 16 апреля 2010, 19:14 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Beknur!
событие OnChange срабатывает на любое изменения поля. Как только вы начинаете ввод, то там будет только буква п. Это приведёт к красному цвету поля. Как только все введете, появиться картинка.
Что бы все было как нужно, пишите что то вида

procedure Tmodul1.Edit6Change(Sender: TObject);
begin
if edit6.Text='педагог' then begin
image5.Visible:=true;
edit6.Color:=clWindow;
end 
else begin
edit6.Color:=clred;
image5.Visible:=false;
end;
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 16 апреля 2010, 19:20 Оценка за ответ: 5 Комментарий к оценке: Большое ВАМ спасибо!!!

Мини-форум вопроса

min@y™ (статус: Доктор наук), 16 апреля 2010, 19:59 [#1]: Ну да. Надо просто использовать другое событие. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.