Larisa

получается  :

/// -- Создание

procedure TfrmEZEntryParcelKTList.prtbndsrc_EZEntryParcelKTCreateAdapter(

  Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter);

begin

  ABindSourceAdapter:=TListBindSourceAdapter<tCustomEZEntryParcelKT>.Create(SELF, nil, FALSE);

  self.prtbndsrc_EZEntryParcelKT.AutoEdit:=TRUE;

  self.prtbndsrc_EZEntryParcelKT.AutoPost:=TRUE;

end;

/// -- изменение данных

procedure TfrmEZEntryParcelKTList.SetVM(const Value: TEZEntryParcelKTList);

begin

  FVM := Value;

  self.grd_Parcels.BeginUpdate;

  if Assigned(self.FVM) then

    TListBindSourceAdapter<tCustomEZEntryParcelKT>(Self.prtbndsrc_EZEntryParcelKT.InternalAdapter).SetList(self.FVM.TGenList, FALSE)

  else

    TListBindSourceAdapter<tCustomEZEntryParcelKT>(Self.prtbndsrc_EZEntryParcelKT.InternalAdapter).SetList(nil, FALSE);

  self.prtbndsrc_EZEntryParcelKT.Active:=Assigned(self.FVM);

  self.grd_Parcels.InvalidateContentSize;

  self.grd_Parcels.SelectCell(2,0); { TODO :  попытка  - съедается ячецйка  }

  self.grd_Parcels.EndUpdate;

end;

Причем, приложение открывается,  только первая ячейка не  вида, имеется  скролл,  если  по шевелить )) или выполнить просто клик мыши, ячейка прорисовывается ...

как то так ...

заранее Спасибо!

Спасибо за ответы, ноооо УВЫ не помогло,  все равно съедает первую ячейку (((((((......

хотя бы почитайте соседние темы

 

Читалаа ..... Увы ни один из вариантов не помог....

Здравствуйте, подскажите пожалуйста

Есть TGrid , связан со списком данных при помощи LB, но при отрисовки таблицы  не отображается первая ячейка (но не всегда первая)  таблицы ,   отрисовывается только  тогда когда   есть  фокус  на Grid.

*Repaint, Refresh у  GRida  не помогают.

Заранее большое спасибо!