Mehrere Listboxen

[EWeiss]

Ich erstelle eine Listbox und übergebe die Eigenschaften der erstellten Listbox einem Record.

Delphi-Quellcode:

  PLB_TYPE = ^TLB_TYPE;
  TLB_TYPE = record
    AktForecolor      : COLORREF;
    InAktForecolor    : COLORREF;
    Backcolor         : COLORREF;
    Shadow            : Boolean;
    ShadowColor       : COLORREF;
    ShadowOffset      : Integer;
    ForeColorSelected : COLORREF;
    BackColorSelected : COLORREF;
    PointSize         : Integer;
    DrawStyle         : Integer;
    BorderStyle       : Integer;
    Icon              : string;
    ItemHeight        : Integer;
    Handle            : HWND;
    Left              : Integer;
    Top               : Integer;
    Width             : Integer;
    Height            : Integer;
    Font              : HFONT;
  end;

Solange ich nur eine Box erstelle ist das kein Problem.
Bei mehreren Boxen heben sich die Eigenschaften auf bzw ist nur noch die gültig von der zuletzt erstellten Box.
Bsp. Handle..

Ich kann zwar das korrekte Handle der ListBox in erfahrung bringen in dem ich einfach die LISTBOX_ID
über
GetDlgItem(ParentWindow, LISTBOX_ID) abfrage aber dann fehlen mir immer noch die anderen Eigenschaften die vorher zugewiesen wurden.

Theoretisch könnte ich die zweite ja mit anderen Schriftfarben festlegen.

Wie kann ich das am dümmsten Bereinigen ?

gruss