|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
18.03.2011, 21:42
|
|||
|
|||
Проблема с цветами в Label
Здравствуйте!!
Вот код программы Код:
If (Edit1.Text<>'') then
begin
If ADOTable1.Locate('Login',Edit1.Text,[loCaseInsensitive, loPartialKey]) then
begin
Label3.Caption:=('Такое имя пользователя уже есть!');
Label3.font.Color:=clREd;
end
else Label3.Caption:=('Нет совпадений!');
Label3.font.Color:=clGreen;
end
else Label3.Caption:=('Так нельзя!!!!');
Label3.font.Color:=clRed;
end;Цвет почему то всегда красный. В чем причина? Последний раз редактировалось Admin, 18.03.2011 в 21:45. |
Древовидный вид