Mover objetos por la forma

[odrack]

Que tal compañeros!!

Quisiera porder mover ciertos objetos dentro de la forma, pero no logro conseguirlo.

Tengo el objeto TabbedNotebook y en el evento onclic tengo el siguiente codigo

Código Delphi [-]
var cor1:tpoint;
begin
  cor1:=Mouse.CursorPos;
  tabbednotebook1.top:=cor1.X;
  tabbednotebook1.left:=cor1.Y;
  showmessage('X:'+INTTOSTR(cor1.X)+' Y:'+INTTOSTR(cor1.Y));
end;

con esto logro que se desplace a cierto punto, pero no lo puedo arrastrar a donde yo quisiera, espero que me puedan orientar con esto!!

[Neftali [Germán.Estévez]]

En mi página web, en la sección de componentes hay uno llamado TSelectOnRuntime. Revisa las demos, a ver si es lo que necesitas.

[odrack]

Saludos Neftali

Ya he instalado tu componente, pero no entiendo como haces para seleccionar el componente a mover o arrastrarlo?

lo he hecho asi pero no me ha dado resultado

Código Delphi [-]
procedure TForm2.SelectOnRunTime1BeforeSelect(Sender: TObject;
  Selected: TControl; var Select: Boolean);
begin
  SelectOnRunTime1.SelectControl := TControl(TabbedNotebook1);
end;

Saludos y gracias!!!

[Neftali [Germán.Estévez]]

Pues yo he probado así y funciona bien.
Me he creado un proyecto "tonto" que incluye un TabbedNotebook



Le he añadido el componente TSelectOnRuntime.



Lo he activado y le he puesto como componente de selección el TabbedNoteBook



Y finalmente lo he ejecutado. Ya aparece seleccionado en control y si pasas el ratón por las pestañas del componente, cambia el ratón y te permite moverlo por el formulario.