Тема: Синтаксис
Показать сообщение отдельно
  #6  
Старый 04.03.2013, 12:51
U.B.M. U.B.M. вне форума
Новичок
 
Регистрация: 06.10.2011
Сообщения: 94
Версия Delphi: Delphi 7
Репутация: 13
По умолчанию

Код:
//где-то в коде при создании формы (или изначально установить)
  Button1.Enabled := false; // если эдит пустой изначально, то кнопка должна быть неактивна - так ведь?

Как понял кнопка должна быть активна если окошко не пусто и текст в окошке не начинается с тире или запятой
Код:
procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
  Button1.Enabled := (LabeledEdit1.Text <> '') and
                     (Pos('-',LabeledEdit1.Text) <> 1) and
                     (Pos(',',LabeledEdit1.Text) <> 1) and 
                     (LabeledEdit2.Text <> '') and
                     (Pos('-',LabeledEdit2.Text) <> 1) and
                     (Pos(',',LabeledEdit2.Text) <> 1);
end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
begin
  Button1.Enabled := (LabeledEdit1.Text <> '') and
                     (Pos('-',LabeledEdit1.Text) <> 1) and
                     (Pos(',',LabeledEdit1.Text) <> 1) and 
                     (LabeledEdit2.Text <> '') and
                     (Pos('-',LabeledEdit2.Text) <> 1) and
                     (Pos(',',LabeledEdit2.Text) <> 1);
end;
Ответить с цитированием