StringGrid: Zellen-Farbe bei Click ändern

[Hansa]

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.