• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 336
  • Last Modified:

InputQuery Message Box List

I am trying to have a message dialog query input box with a list of items to pick from, the follow code allows only one line to be displayed, cannot find out how to have a list.

begin
  dbisamtable1.CheckBrowseMode;//post all
  InputString := 'LIST'+#13#10+'PROSPECT';
  ClickedOK := InputQuery('Insert Record Category Select','Enter Category',InputString);
   if ClickedOK then
    dbisamtable1.Insert;
    dbisamtable1category.value := InputString;
   end;

Thank you.

Cordially,

JAlexander
vtcmain@pacbell.net
0
vtcmain
Asked:
vtcmain
  • 2
1 Solution
 
MatveyCommented:
InputQuery doesn't support any lists, combos - just a caption and an edit. If you want to make a sophisticated dialog, you have to put all you want on a new form, and then ShowModal it. You should put some buttons and make them to be Cancel, OK, etc. Use the ModalResult property of the buttons for that.
0
 
kjtengCommented:
You cannot use inputQuery to select a list of item. Try this:
1. Create a dialog box (a new form, let's call it dlgbox1)
2. Drop a listbox or combobox to the dlgbox1
3. Key in the possible values in the items property of listbox/combox
4. ADD THESE CODES IN YOUR MAIN FORM:
    dlgbox1.ShowModal;
    if dlgbox1.ModalResult = mrOK then
      { do whatever intended}

5. Alternatively, you may just create an onclick event for the OKbutton in dlgbox1 and do whatever you wish in the event hanlder
0
 
MatveyCommented:
Ghm...
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now