#5 得分:0
回复于: 2014-10-09 11:57:35
procedure TForm1.FormCreate(Sender: TObject);
begin RzGroup1.ShowItemSelection := True; RzGroup1.Items.Clear; RzGroup1.Items.Add.Caption := 'Item0'; with RzGroup1.Items.Add do begin Caption := 'Item1'; IndentLevel:=1; Visible := False end; RzGroup1.OnMouseDown := RzGroup1MouseDown end; procedure TForm1.RzGroup1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var Item: Integer; begin Item := RzGroup1.ItemAtPos(Point(X,Y)); if Item = 0 then begin RzGroup1.Items[0].Selected := True; RzGroup1.Items[1].Visible := not RzGroup1.Items[1].Visible; end end; |
#5 得分:0
回复于: 2014-10-09 11:57:35
procedure TForm1.FormCreate(Sender: TObject);
begin RzGroup1.ShowItemSelection := True; RzGroup1.Items.Clear; RzGroup1.Items.Add.Caption := 'Item0'; with RzGroup1.Items.Add do begin Caption := 'Item1'; IndentLevel:=1; Visible := False end; RzGroup1.OnMouseDown := RzGroup1MouseDown end; procedure TForm1.RzGroup1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var Item: Integer; begin Item := RzGroup1.ItemAtPos(Point(X,Y)); if Item = 0 then begin RzGroup1.Items[0].Selected := True; RzGroup1.Items[1].Visible := not RzGroup1.Items[1].Visible; end end; |