Спасибо. Я пытался наваять что-то с MaskEdit.
Еще один вопрос. Я пытался сделать настройки. Получилось вот что.
Есть:
Едит1. Невидимый.
Кнопка1.
Кнопка2.
При нажатии на кнопку один вылезает сообщение ('Сообщение включено.')
Исполняется лишь если текст Едита1 "Включено". При нажатии на кнопку два в невидимом Едите меняется текст, соответственно сообщение вылезать не будет.
Надеюсь суть понятна.
Вопрос в том, можно ли каким-то иным способом сделать такие настройки? И есть ли у этого способа недостатки?
Ещё вопрос.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') and (Edit2.Text<>'') then
ShowMessage ('Введите ник!') ;
if (Edit1.Text<>'') and (Edit2.Text='') then
ShowMessage ('Введите пароль!') ;
if (Edit1.Text='') and (Edit2.Text='') then
ShowMessage ('Введите ник и пароль!')
else
begin
Label1.Caption:= 'Вы вошли!' ;
Form2.Show
end;
end;
Если оба поля пустые-показывает сообщение и всё. Если же одно из них заполнено-показывает сообщение и переходит к форме. Как избежать?