Lothar

it is set to True.

I send you an E-Mail with ScreenShots

Hi Boki,

1) even with a locate to the right row it doesn't work - verry strange.

procedure THaWjStammDlg.nxgrdVermBerichtContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var
  Point : TPoint;
begin
  Point := nxrpt.GetCellAtPos(MousePos);
  if (Point.X >= 1) and (Point.Y >= 0)then
  begin
    if nxgrdVermBericht.DataSource.DataSet.Locate('vb_key', nxgrdVermBericht.Cell[nxnrVB_KEY.Position,Point.Y].AsString, []) then
      pmClear.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  end;
end;

 

Hi Boki,

thank you, but I don't get it to work:

I use a popup-Menu to clear the field:

procedure THaWjStammDlg.mniClearClick(Sender: TObject);
var
 Browse : Boolean;
begin
  Browse := nxgrdVermBericht.DataSource.DataSet.State = dsBrowse;
  if Browse then
    nxgrdVermBericht.DataSource.DataSet.Edit;
  nxgrdVermBericht.DataSource.DataSet.FieldByName(nxgrdVermBericht.DataBinding[nxgrdVermBericht.SelectedCol].FieldName).Clear;
  if Browse then
    nxgrdVermBericht.DataSource.DataSet.Post;
end;

strangely it doesn't change the database.

AND do you have an answer for Question 2?