Use codes to add submenus of PopupMenu

[asdf]

I need to use 'options' in a dialog box like InputBox. Is it possible? ( I don't need to create a new form for it.)

Or if I apply by using PopupMenu, how can I write codes to add a new submenu?
And how can I use double click instead of right click on the control?

[Blaazen]

Hi,

I need to use 'options' in a dialog box like InputBox. Is it possible? ( I don't need to create a new form for it.)

I don't understand well.

Or if I apply by using PopupMenu, how can I write codes to add a new submenu?

Code: [Select]

var MI: TMenuItem;
begin
  MI:=TMenuItem.Create(self);
  with MI do
    begin
      Caption:='My New Item '+inttostr(PopupMenu1.Items.Count);
      //also do not forget to assign some action or event
    end;
  PopupMenu1.Items.Add(MI); 
end;


And how can I use double click instead of right click on the control?

Let's say you have Image1 and Image1Click event. In code you can switch:

Code: [Select]

      Image1.OnClick:=nil;
      Image1.OnDblClick:=@Image1Click;
or

Code: [Select]

      Image1.OnClick:=@Image1Click;
      Image1.OnDblClick:=nil;


[User137]

Rather than adding new menus (which you can do with TMenuItem.Create), you can change their visibility. Give your menuitems some relevant names like mnuOptions, and then use
mnuOptions.Visible:=true;
or
mnuToggle1.Caption:='Something';