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 не помогают. Заранее большое спасибо!