procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption='Вход then
begin
Button1.Caption:='Выход';
Edit1.Enabled:=False;
Edit2.Enabled:=False
end
else
begin
Button1.Caption='Вход';
Edit1.Text:='';
Edit2.Text:='';
Edit1.Enabled:=True;
Edit2.Enabled:=True;
end;
end;
Мой совет, используй условия вот так, так как после операторов then и else можно написать только одну команду:
Код:
if ..... then
begin
end else
begin
end;
если не сложно, плз нажми на весы
________________ Принимаю программы на заказ. Скайп: uran-1997
Последний раз редактировалось R-A-Z-O-R; 21.07.2011 в 15:52.