Jump to content

uniguisyriusz

uniGUI Subscriber
  • Posts

    61
  • Joined

  • Last visited

Posts posted by uniguisyriusz

  1. Here is video:


    When I click item3 over the arrow, subitems are expanding and onclick is fire.

    I want to only expand subitems of item3. When I click over the text "item3" only onclick is executing, subitems not expanding.

     

    Code:

    procedure TMainForm.item11Click(Sender: TObject);

    begin

      ShowMessage('item1onclick');

     

    end;

     

    procedure TMainForm.item21Click(Sender: TObject);

    begin

      ShowMessage('item2onclick');

    end;

     

    procedure TMainForm.item31Click(Sender: TObject);

    begin

      ShowMessage('item3onclick');

    end;

     

    procedure TMainForm.subitem11Click(Sender: TObject);

    begin

      ShowMessage('subitem1onclick');

    end;

     

    procedure TMainForm.subitem21Click(Sender: TObject);

    begin

      ShowMessage('subitem2onclick');

    end;
×
×
  • Create New...