Das hier hat sich überschnitten mit meinem Posting :
Zitat von
Helmi:
hab deinen Code etwas angepasst und so funktionierts bestens:
Nur, wie hängt das hiermit zusammen :
Zitat von
Helmi:
ich muss gestehen - ich hab bisher nichts mit Objects zu tun gehabt
Dürfte dann wohl nur kurz gehen.
Würde das ganze so aufbauen :
Delphi-Quellcode:
procedure Tfrm.AddAusgObject(ACol, ARow : integer); // protected
var
AusgObject : TAusgObject;
begin
AusgObject := TAusgObject.Create;
...
AusgObject.Color := clWhite; // Standardwert
...
sgNr.Objects[ACol, ARow] := AusgObject;
ObjektZaehler := ObjektZaehler + 1; // Abgleich Anzahl createter TObjects
end;
Das ist je nach Anwendung lediglich die Spitze des Eisbergs.
Edit :
Delphi-Quellcode:
TAusgObject = class(TObject)
D : boolean; // später Auswertung, ob Anzeige als real erfolgt
// und ein Hinweis in der Zelle erscheint
Color : TColor;
P : PTyp;
constructor Create;
destructor Destroy;
end;
So ungefähr sieht der Typ (abgekürzt) aus. Automatisch geht da nicht viel. Es ist Programmierung gefragt.
