problems when exit fromTDBRichViewEdit.

Return to index

Author

Message

Franck

Posted: 09/16/2004 16:00:40

Hi sergei.

Sorry to use the support for a bug report, but I cannot reach you at [email protected].

I use vers 1.9, but sometimes I have problems when I try to exit  from a

TDBRichViewEdit.

for now, in unit DBRV, your code is :

procedure TDBRichViewEdit.CMExit(var Message: TCMExit);

begin

  try

      FDataLink.UpdateRecord;

  except

    SetFocus;

    raise;

  end;

  SetFocused(False);

  inherited;

end;

But nowhere the Dataset state is tested...so, it can happen that this code

raises a DB exception ('Dataset not in edit state').

Do I forgot something ????   Tell me, please.  Meanwhile,  I introduced this

modif :

procedure TDBRichViewEdit.CMExit(var Message: TCMExit);

begin

  try

    with FDataLink do

      if (DataSet <> nil) and (DataSet.State in dsEditmodes) then

    FDataLink.UpdateRecord;

  except

    SetFocus;

    raise;

  end;

  SetFocused(False);

  inherited;

end;

Thanks,

Franck