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;
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;