Код исправил
Код:
procedure TMainForm.blbRazdel1009Click(Sender: TObject);
begin
FreeActiveItem;
if Razdel1009Form=nil then
Razdel1009Form:=TRazdel1009Form.Create(Self);
Razdel1009Form.ManualDock(DockPanel,nil,alClient);
ActiveForm:=Razdel1009Form;
ActiveBarButton:=blbRazdel1009;
ActiveBarButton.Enabled:=false;
FormResize(Sender);
Razdel1009Form.Show;
Razdel1009Form.GROTMGrid.SetFocus;
Razdel1009Form.GROTMTableView.DataController.SelectRows(0,0);
end;
procedure TMainForm.blbRazdel3009Click(Sender: TObject);
begin
FreeActiveItem;
if Razdel11_009Form=nil then
Razdel11_009Form:=TForm1.Create(Self);
Razdel11_009Form.ManualDock(DockPanel,nil,alClient);
ActiveForm:=Razdel11_009Form;
ActiveBarButton:=blbRazdel3009;
ActiveBarButton.Enabled:=false;
FormResize(Sender);
Razdel11_009Form.Show;
Razdel11_009Form.GROTMGrid.SetFocus;
Razdel11_009Form.GROTMTableView.DataController.SelectRows(0,0);
end;
Админ: Пользуемся тегами при оформлении кода, иначе последуют санкции!
Ошибка вылетает на этой строчке
Razdel11_009Form.GROTMGrid.SetFocus;