Yo pensaba que era así !! Pero no me funciona.
En mi caso particular quiere cambiar entre 'editar' y 'no editar' cada vez que pulso la tecla Enter.
No sé que estoy haciendo mal.
procedure TMasterBuilding.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#13: //Enter
Begin
If not (dgEditing in DBGrid1.Options) then
DBGrid1.Options := [dgEditing,dgTitles,dgConfirmDelete,dgCancelOnExit]
else
DBGrid1.Options := [dgRowSelect,dgTitles,dgConfirmDelete,dgCancelOnExit];
......
......
end;
end;
end;
|