TCollection = not TCollection ?

[EWeiss]

sorry push..

Bei der Übergabe der Combobox direkt funktioniert es aber ich will alle gleichzeitig verarbeiten können.

Warum geht das nicht?

Das will ich vermeiden

Delphi-Quellcode:

  ComboHook := HookedCombo_Create;
  if assigned(ComboHook) then
  begin
    ComboHook.ComboImg := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Combo.png');
    ComboHook.FrameColor := $FCAC65;
    ComboHook.FrameHighLite := $FFE9D6;

    ComboHook.SetComboParentObj(ComboBox1);
    ComboHook.Connect;

  end;

  ComboHook2 := HookedCombo_Create;
  if assigned(ComboHook2) then
  begin
    ComboHook2.ComboImg := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Combo.png');
    ComboHook2.FrameColor := $FCAC65;
    ComboHook2.FrameHighLite := $FFE9D6;

    ComboHook2.SetComboParentObj(ComboBox2);
    ComboHook2.Connect;
  end;

und an stelle dessen!

Delphi-Quellcode:

ComboHook := HookedCombo_Create;
  if assigned(ComboHook) then
  begin
    ComboHook.ComboImg := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Combo.png');
    ComboHook.FrameColor := $FCAC65;
    ComboHook.FrameHighLite := $FFE9D6;

    ComboHook.SetComboParentObj(self);
    ComboHook.Connect;

  end;

verwenden um alle Comboboxen der Anwendung innerhalb der DLL zu enumerieren/verwalten..