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