Was mache ich hier falsch? Objektabfrage in ListBoxDrawItem

[Renate Schaaf]

Zitat von Alallart:

Delphi-Quellcode:

procedure ListBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState; ImageList: TImageList);
var
  Info: TInfo;
  LB: TListBox;
begin
  LB := Control as TListbox;

  //Code...

  Info := TInfo(LB.Items[Index]);

  if Info.ErrInfo > 0 then
      Canvas.Brush.Color := clRed;

  //Code...

end;

Sollte das nicht sein

Info := TInfo(LB.Items.Objects[Index]) ?

[Uwe Raabe]

Hättest du das als Info := LB.Items[Index] as TInfo geschrieben, wäre das schon dem Compiler aufgefallen.

[Alallart]

Danke, das war der Fehler. Manchmal sieht man vor lauter Bäume...

Wobei da war noch ein zweiter Fehler, der sich aber erst nach dem lösen des ersten Problems zeigte.