Контекстное меню

[anGeee]

У меня на форме есть два СтрингГрида и контекстное меню, относящееся к первому СтрингГриду и ко второму. Я добавляю в меню пункт, например, "Добавить столбец", и пытаюсь написать отладчик, который бы работал как для первого СтрингГрида, так и для второго. Выглдяит это примерно так:

procedure TForm1.N1Click(Sender: TObject);
begin
  (Sender as TStringGrid).ColCount := (Sender as TStringGrid).ColCount + 1;
  (Sender as TStringGrid).Cells[(Sender as TStringGrid).ColCount-1,1] := '   Q' + IntToStr((Sender as TStringGrid).ColCount-1);
  (Sender as TStringGrid).Cells[(Sender as TStringGrid).ColCount-1,0] := '1';
end;

При выполнении программы выскакивает ошибка. Насколько я понял смысл этой ошибки, параметр Sender это есть меню, а не Стринггрид(поправьте, если я ошибаюсь). Вот, так как тогда мне узнать из какого СтрингГрида вызвано меню ? Добавлять для каждого СтрингГрида своё меню и писать свои отладчики ? ...

[mihali4]

То, что вам нужно, описывается в свойстве TPopupMenu.PopupComponent...
Вот его и нужно использовать, а не (Sender as TStringGrid).