Código Delphi [-] procedure TForm1.btnActivarClick(Sender: TObject); begin DBEdit1.ReadOnly:= False; // permite escribir end; procedure TForm1.btnDesactivarClick(Sender: TObject); begin DBEdit1.ReadOnly:= True; // prohibe escribir end;
procedure TForm1.btnActivarClick(Sender: TObject); begin DBEdit1.ReadOnly:= False; // permite escribir end; procedure TForm1.btnDesactivarClick(Sender: TObject); begin DBEdit1.ReadOnly:= True; // prohibe escribir end;