dispatch dEdit

[...]

FORM "TEST",600,600
CONTROL "edit", dEdit, 5, 5, 20, 25

      dEdit.DropDown = 3

      dEdit.AddItem(1, "pierwszy element")
      dEdit.AddItem(2, "drugi element")

#define ANULUJ 0

dispatch dEdit

int sub OnCommand(int id,int msg)
   if id == 0 && msg == 0 then
      dEdit.DropDown = 3
        dEdit.AddItem(1, "pierwszy element")
        dEdit.AddItem(2, "drugi element")
   endif
endsub

int sub dEdit_DropItemSel (dispatch dEd) //(int iItem, string sItem, char cItem)
   Message using "Wartość 1: %d\nWartość 2: %s\nWartość 3: %d", dEd.Value(1), dEd.Value(2), dEd.Value(3)
endsub

FORM "TEST",600,600
CONTROL "edit", dEdit, 5, 5, 200, 25
ExecForm(OnCommand)