ListBox Item Farbe bekommen

[s.h.a.r.k]

Müsste das nicht so gehen?

Delphi-Quellcode:

var
  C : TColor;
begin
  Index := ListBox1.ItemIndex;
  if (Index > -1) and (Index < ListBox1.Count) then
  begin
    C := TColor(ListBox1.Objects[Index]);

  end;
end;

Du hast den Code zum auslesen doch auch schon da stehen! Vergleiche mal deine ListBox1DrawItem-Methode mit dem Code, den ich hier gepostet habe.