Move non Wincontrol objects

[b][red]This message was edited by porodoro at 2006-1-1 11:22:9[/red][/b][hr][b][red]This message was edited by porodoro at 2006-1-1 11:21:41[/red][/b][hr]Hi. I've found a great tutorial by zarko about movingobjects at runtime.Everything works perfect. Except one thing.I cant move non TwinControl objects(eg Tlabel , Tlistbox etc)!

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);begin Accept := Source is TControl;end;[/code]I've tested this code using a TLabel and a TPanel, and could place them anywhere on the form. You can specify, which controls can be moved, with the DragMode.