Hello Alister Exists other way to activate the second groupbox: change the parent GroupBox2.Parent := GroupBox1.Parent (or other control outside GroupBox1) GroupBox2.Parent := GroupBox1 (to restore) This method works but the groupbox change its place because its coordinates always refer to origin of current parent. Xavier > > > Hello Xavier, > > Thank you very much. > Al+ > XMM> procedure TForm1.ListBox1DrawItem(Control: TWinControl; > Index: Integer; > XMM> Rect: TRect; State: TOwnerDrawState); > XMM> begin > XMM> with (Control as TListBox).Canvas do >