Edit pasif (edit the passive)

2 Edit ekleyerek,1.Editi aktif 2.Editi pasif yapan kod:

Edit1 kod;

procedure TForm1.Edit1Change(Sender: TObject);

begin

edit1.Enabled:=true;

end;

Edit2 kod;

procedure TForm1.Edit2Change(Sender: TObject);

begin

edit2.Enabled:=false;

end;
end.