3 x ComboBox in InputBox mit Event. Bitte helfen

[haentschman]

Moin...

Zitat:

Problem gelöst. Win32API zu Hilfe genommen und schon ging es.

...das würde mich mal interessieren.

Zitat:

Schade nur dass Niemand was dazu geschrieben hat.

...weil keiner weiß was du vorhast?

Zitat:

Ich versuche zur Laufzeit in einer InputBox 3 ComboBoxe's zu erstellen.

Müssen die CB auch zur Laufzeit erzeugt werden? Geht auch auch auf dem Formular? Immer 3 CB? Dynamische Erzeugung des Forms? Warum?
...soviele Unklarheiten warum du sowas machst. Ich wette es gibt eine einfache Lösung dafür.

Delphi-Quellcode:

Combo1 := TComboBox.Create(Form);
  with Combo1 do
    begin
      Parent := Form;
      Style  := csDropDownList;
      Items.Assign(AList);
      ItemIndex := 0;

      Left  := Prompt.Left;
      Top   := Prompt.Top + Prompt.Height + 5;
      Width := 80;
      TMethod(Event).Code := @Combo1Change;
      TMethod(Event).Data := Combo1;
      OnChange            := Event;
    end;

Wo hast du das mit dem Pointer auf das Event her?