[mskvkin]

а как назначить перехват перемещения тока для формы которая создается внутри к примеру Panel:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  F:TForm;
begin
  F:=TForm.Create(self);
  F.Parent:=panel1;
  F.Name:='MyForm1';
  F.Caption:='Моя форма';
  F.Top:=1; //координата 1
  F.Left:=1; //координата 2;
  F.Show;// - показ формы
end;