Einzelnen Beitrag anzeigen

plautzer

Registriert seit: 23. Aug 2003
172 Beiträge
 
#42

Re: Property "Objects" im Stringgrid

  Alt 20. Feb 2005, 13:14
Hi,

ich habe nochmal ein paar um zu vergewissen das ich auf dem richtigen weg bin.

Meine erste Frage hierzu:

Delphi-Quellcode:
Tgrid = class(Tstringgrid)
    public

    TableName : string;
  end;
Tzelle = class(tobject)
   private
   nr: integer;
   reihe: integer;
   editiert: boolean;
   end;
Ist das sinnvoll zwei objekte für das stringgrid zu wählen? Denn ich merk gerade das ich probleme habe, das grids nach dem zellenobjekt zu druchforsten:

Delphi-Quellcode:
for i := st_grid.FixedCols to st_grid.ColCount do
    for j := st_grid.FixedRows to st_grid.RowCount do
   if zelle.editiert = true then begin //prüfen ob die zelle editiert wurde
        showmessage(inttostr(zelle.reihe));
      end;
und so wird sie deklariert:

Delphi-Quellcode:
procedure TForm1.zellenchange(ACol, ARow : integer;sgNr:tgrid ;editiert:boolean);
begin
    if sgNr.Objects[ACol, ARow] <> nil then
    (sgNr.Objects[ACol, ARow] as Tzelle).editiert := editiert;
end;
...
x:=(Sender as Tstringgrid).Col;
y:=(Sender as Tstringgrid).row;
zellenchange(x,y,Sender as Tgrid,true);
Ich alles mit einem Objekt 'tgrid' machen?
  Mit Zitat antworten Zitat