Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.292 Beiträge
 
Delphi 12 Athens
 
#3

AW: 3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 11. Sep 2017, 14:47
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?

Geändert von haentschman (11. Sep 2017 um 15:02 Uhr)
  Mit Zitat antworten Zitat