Ver Mensaje Individual
  #2  
Antiguo 30-03-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola barakuda.

Una opción sería utilizar la propiedad Tag del TButton con que aceptas, como flag para evaluarlo en el evento BeforePost del TDataSet:
Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  btnAceptar.Tag:= 0;
end;

procedure TForm1.DataSetBeforePost(DataSet: TDataSet);
begin
  if btnAceptar.Tag = 0 then  // ¿ Post desactivado ?
    DataSet.Cancel;  // si, cancelar               
end;

procedure TForm1.btnAceptarClick(Sender: TObject);
begin
  with DBGrid1.DataSource.DataSet do
  begin
    btnAceptar.Tag:= 1; // Post habilitado
    Edit;
    Post;
    btnAceptar.Tag:= 0; // Post desactivado
  end;
end;
...
Si se me una mejor opción te comento.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita