
04.03.2013, 12:51
|
Новичок
|
|
Регистрация: 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;
|