Farbe von mit OnDrawcell gefärbter StringGridZelle abfragen

[taaktaak]

Das muss man natürlich erst mal wissen, das die Zuweisung selbst ein erneutes Draw auslöst - na, wieder was dazugelernt!

[Hobby-Programmierer]

Nabend ...,
das nenne ich ja jetzt mal 'die Kuh am Schwanz von der Weide ziehen'!
Warum zum Geier so einen Aufwand? Du machst dir selber ein Problem wo eigentlich keines sein dürfte, oder habe ich da was falsch verstanden?

- Du hebst anhand irgendwelcher Bedingungen die Zellen eines SG farblich hervor
- Exportierst nach Excel
- liest die Zellfarbe ein um die ebenfalls mitzuschicken


Ein SG sollte eigentlich nur zur Darstellung und nicht zur Datenhaltung gebraucht werden! Für die Daten nimm lieber einen Record oder ein Array, dann hast du diese Sorgen nicht.

PS. Aber selbst wenn du deinen alten Gedanken verwenden möchtest, da flackert nix - siehe Demo
Zellfarbe abfragen geht mit

Delphi-Quellcode:

procedure TForm1.Panel1Click(Sender: TObject);
var cRow, cCol: Integer;
    farbe: TColor;
begin
  cCol:= StrToInt(Edit1.Text) +1;
  cRow:= ComboBox2.ItemIndex +1;
  farbe:= TColor(Grid_Plan.Objects[cCol, cRow]);

  if farbe = 0 then
    ... // dein Code
   else
    ... ; // dein Code
end;