Имеется три формы
На первой размещены несколько Grid-ов, привязанные к своим хранимым процедурам с выносом некоторых полей
(на самом деле в проекте таких форм много).
На второй ListBox, в который залиты имена Grid-ов из первой формы (реализовано, а лучше имена хранимых процедур - не получается),
и Grid, в котором должен показываться полный вынос хранимой процедуры выбранного в ListBox Grid-а
Вызов формы 2 осуществляется по горячей клавише, привязанной к форме 3 (главная форма)
Как назначить DataSet выбранного Grida-а формы 1 в текущем его состоянии Grid-у формы 2

На FoxPro реализуется на раз (реализовано)
Но нужно на Delphi XE (для контроля данных и их ручной правке в MS SQL)

DimaBr,

Вся сложность в том, что обработчик события нажатия горячей клавиши помещен на форму 3 (главную), где кроме меню ничего нет
А FindComponent ищет ТОЛЬКО в той форме, из которой вызывается, на конструкции
Var AGrid :TDBGrid;
и
AGrid := Form1.FindComponent(ListBoxGrid.Items[ListBoxGrid.ItemIndex]) as TDBGrid;
говорит, что переменная TDBGrid не найдена.
Помещать обработчик события нажатия горячей клавиши на каждую форму не реально, их более 2500

DimaBr,

Сделал, как написано

procedure TForm3.ListBox1Click(Sender: TObject);
Var AGrid :TDBGrid;
begin
Edit5.Text:=ListBox1.Items[ListBox1.ItemIndex];
AGrid:= Form3.FindComponent(ListBox1.Items[ListBox1.ItemIndex]) as TDBGrid;
DBGrid1.DataSource:=AGrid.DataSource;
end;

Доходит строки
AGrid:= Form3.FindComponent(ListBox1.Items[ListBox1.ItemIndex]) as TDBGrid;
и на ней обрывается с ошибкой
Access violation at addres 004C3DAF in module 'Project2.exe'. Read of addres 00000010.

(первое упоминание AGrid, если впереди добавить еще упоминание AGrid , например Edit5.Text:=AGrid.Name; обрываться будет на ней)

DimaBr,

А можно показать весь код проекта.
Ну не катит у меня
На исполнении выскакивает ошибка при первом обращении к AGid

DimaBr,

Очень интересен код Form1

m830,

У меня было
if AGrid <> nil then Form3.DBGrid1.DataSource:=AGrid.DataSource;
Причем лежит DBGrid1 на Form3
Убрал Form3 - заработало