Komplizierte StringGrid-Frage

[Talia]

Hallo, Delphi-Spezialisten!

Ich habe auf einem Formular 6 StringGrids A und 6 StringGrids B jeweils in einem array[1..6] of TStringGrid abgelegt. Außerdem gibt es noch einen nArray[1..6] of Integer und einen array [1..6] of TSet.

SGA[1], SGB[1], nArray[1] und Set[1] gehören zusammen und enthalten Informationen, die sie untereinander austauschen sollen.

Die SGA[i] haben ein StringGridASelectCell-Ereignis, auf das sie alle zugreifen (Im Objectinspector so eingestellt).


Hier mal etwas code:

Delphi-Quellcode:

procedure TForm1.StringGridASelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  with Sender as TStringGrid do
  begin
    Objects[ACol, ARow] := TObject(not Boolean(Objects[ACol, ARow]));
    if Boolean(Objects[ACol, ARow]) then
      if nArray[(Sender as TStringGrid).Tag] < 6 then
      begin
        Inc(nArray[(Sender as TStringGrid).Tag]);
        ...
        Include(SetArray[(Sender as TStringGrid).Tag], ...);
        ...
      end

"Kennt" das angeklickte StrinGGrid seine Position im SGArray? Die würde ich jetzt nämlich brauchen. Wie man sieht habe ich mir so geholfen, daß ich die SGA von 1 bis 6 getaggt habe, lieber wäre mir aber eine "richtige" Lösung