Here is video:
https://www.useloom.com/share/e6acc7c1ae084ba9893400db4a01a9ed
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;